Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/sun/volume1/calentool/part08

Internet Message Format | 1989-05-27 | 96.7 KB

Path: uunet!cs.utexas.edu!rutgers!aramis.rutgers.edu!dartagnan.rutgers.edu!mcgrew
From: [e-mail] (Charles Mcgrew)
Newsgroups: comp.sources.sun
Subject: v01i017:  Calendar/planning tool: Part 08/09
Message-ID: <[e-mail]>
Date: 27 May 89 21:15:07 GMT
Organization: Rutgers Univ., New Brunswick, N.J.
Lines: 3257
Approved: [e-mail]

Submitted-by: Bill Randle <[e-mail]>
Posting-number: Volume 1, Issue 17
Archive-name: calentool/part08

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#    std.icon
#    sunny.icon
#    tool.c
#    utils.c
#    version.c
#    week.cursor
#    wevent.c
#    wpaint.c
#    year.cursor
#    ypaint.c
# This archive created: Sat May 27 13:14:18 1989
export PATH; PATH=/bin:$PATH
echo shar: extracting "'std.icon'" '(2591 characters)'
if test -f 'std.icon'
then
    echo shar: will not over-write existing file "'std.icon'"
else
sed 's/^    X//' << \SHAR_EOF > 'std.icon'
    X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
    X *
    X * $Header: std.icon,v 2.1 89/05/09 14:30:54 billr Exp $
    X *      Copyright (C) 1988, The Regents of the University of California
    X *                            All rights Reserved
    X *                       Author: R. P. C. Rodgers, M.D.
    X *
    X * Redistribution and use in source and binary forms are permitted
    X * provided that this notice is preserved and that due credit is given
    X * to the University of California at San Francisco. The name of the University
    X * may not be used to endorse or promote products derived from this
    X * software without specific prior written permission. This software
    X * is provided ``as is'' without express or implied warranty.
    X */
    X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8000,0x0000,0x0000,0x0001,
    X    0x8000,0x0000,0x0000,0x0001,0x8000,0x1800,0x0400,0x0181,
    X    0x81C6,0x0862,0x8F18,0x6081,0x8201,0x0893,0x4424,0x9081,
    X    0x8207,0x08E2,0x4424,0x9081,0x8209,0x0882,0x4424,0x9081,
    X    0x81C5,0x0872,0x4318,0x6081,0x8000,0x0000,0x0000,0x0001,
    X    0x8000,0x0001,0xE000,0x0001,0x8000,0x0007,0xF800,0x0001,
    X    0x8000,0x000C,0x0C00,0x0001,0x8000,0x0018,0x0600,0x0001,
    X    0x83FF,0xFFDB,0x36FF,0xFFF1,0x8600,0x0019,0x6600,0x0011,
    X    0x8E00,0x0019,0xA600,0x0011,0x9A00,0x0019,0x2600,0x0011,
    X    0x9200,0x0019,0x6600,0x0011,0x963F,0xFE19,0xA61F,0xFF11,
    X    0x9A00,0x0019,0x2600,0x0011,0x9200,0x003D,0x6F00,0x0011,
    X    0x963F,0xFE3D,0xAF1F,0xFF11,0x9A00,0x003D,0x2F00,0x0011,
    X    0x9200,0x0019,0x6600,0x0011,0x963F,0xFE01,0xA01F,0xFF11,
    X    0x9A00,0x0001,0x2000,0x0011,0x9200,0x0001,0x6000,0x0011,
    X    0x963F,0xFE01,0xA01F,0xFF11,0x9A00,0x0001,0x2000,0x0011,
    X    0x9200,0x0001,0x6000,0x0011,0x963F,0xFE00,0x001F,0xFF11,
    X    0x9A00,0x0001,0xE000,0x0011,0x9200,0x0007,0xF800,0x0011,
    X    0x963F,0xFE0C,0x0C1F,0xFF11,0x9A00,0x0019,0xA600,0x0011,
    X    0x9200,0x0019,0x2600,0x0011,0x963F,0xFE19,0x661F,0xFF11,
    X    0x9A00,0x0019,0xA600,0x0011,0x9200,0x0019,0x2600,0x0011,
    X    0x963F,0xFE19,0x661F,0xFF11,0x9A00,0x0019,0xA600,0x0011,
    X    0x9200,0x0019,0x2600,0x0011,0x963F,0xFE3D,0x6F1F,0xFF11,
    X    0x9A00,0x003D,0xAF00,0x0011,0x9200,0x003D,0x2F00,0x0011,
    X    0x9600,0x0019,0x6600,0x0011,0x9A00,0x0001,0xA000,0x0011,
    X    0x9200,0x0001,0x2000,0x0011,0x9600,0x0001,0x6000,0x0011,
    X    0x9A00,0x0001,0xA000,0x0011,0x9200,0x0001,0x2000,0x0011,
    X    0x9600,0x0001,0x6000,0x0011,0x9A00,0x0001,0xA000,0x0011,
    X    0x9200,0x0001,0x2000,0x0011,0x9600,0x0001,0x6000,0x0011,
    X    0x9A00,0x0001,0xA000,0x0011,0x93FF,0xFFFF,0x3FFF,0xFFF1,
    X    0x9649,0x2492,0x4924,0x9261,0x9C92,0x4924,0x9249,0x24C1,
    X    0x9FFF,0xFFFF,0xFFFF,0xFF81,0x8000,0x0000,0x0000,0x0001,
    X    0x8000,0x0000,0x0000,0x0001,0xFFFF,0xFFFF,0xFFFF,0xFFFF
SHAR_EOF
if test 2591 -ne "`wc -c < 'std.icon'`"
then
    echo shar: error transmitting "'std.icon'" '(should have been 2591 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'sunny.icon'" '(2593 characters)'
if test -f 'sunny.icon'
then
    echo shar: will not over-write existing file "'sunny.icon'"
else
sed 's/^    X//' << \SHAR_EOF > 'sunny.icon'
    X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
    X *
    X * $Header: sunny.icon,v 2.1 89/05/09 14:30:58 billr Exp $
    X *      Copyright (C) 1989, The Regents of the University of California
    X *                            All rights Reserved
    X *                       Author: R. P. C. Rodgers, M.D.
    X *
    X * Redistribution and use in source and binary forms are permitted
    X * provided that this notice is preserved and that due credit is given
    X * to the University of California at San Francisco. The name of the University
    X * may not be used to endorse or promote products derived from this
    X * software without specific prior written permission. This software
    X * is provided ``as is'' without express or implied warranty.
    X */
    X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8001,0x0000,0x8800,0x0041,
    X    0x8840,0x9020,0x8844,0x0881,0x8840,0x9120,0x8848,0x0881,
    X    0x8420,0x4924,0x8848,0x1101,0x8220,0x4924,0x8A88,0x1101,
    X    0x8210,0x4914,0x9290,0x2205,0x8111,0x2494,0x9290,0x2209,
    X    0x8089,0x2494,0x9292,0x4409,0x8044,0x9494,0x9512,0x4811,
    X    0xA044,0x9294,0x9524,0x8821,0x9222,0x5252,0x9524,0x9041,
    X    0x8912,0x4A52,0x9529,0x1241,0x8491,0x2A4A,0x9549,0x2489,
    X    0x8289,0x255F,0xFE4A,0x4511,0xA244,0x95EA,0x83D2,0x4A21,
    X    0x9124,0x5720,0x02B4,0x9241,0x8892,0x7A00,0x000E,0x9481,
    X    0x8449,0x6800,0x0009,0x2881,0x8225,0xA000,0x0001,0xD101,
    X    0x8116,0x8000,0x0000,0xA221,0x808E,0x0000,0x0000,0x3443,
    X    0x846C,0x0000,0x0000,0x088D,0xE210,0x01E0,0x03C0,0x1511,
    X    0x91A8,0x8610,0x0430,0x8221,0x8C40,0x7808,0x000F,0x01C1,
    X    0x82A0,0x00C4,0x0980,0x0185,0xE180,0x01E4,0x0BE0,0x0059,
    X    0x9940,0x07E4,0x0BF0,0x0061,0x8600,0x0000,0x0800,0x0027,
    X    0xE504,0x07C0,0x09F8,0x0119,0x9C21,0x0000,0x0400,0x0431,
    X    0x8604,0x0000,0x0200,0x0093,0x8810,0x8028,0x0900,0x120D,
    X    0xC944,0x8028,0x0900,0x14A9,0xBC22,0x8028,0x0900,0x1005,
    X    0x9000,0x8018,0x0A00,0x114F,0x90C9,0x0004,0x3000,0x1805,
    X    0xF003,0xC003,0xC000,0x6605,0xA828,0x3000,0x0003,0x807F,
    X    0xA000,0x0E00,0x000C,0x01EB,0xA7E0,0x01E0,0x00F0,0x0355,
    X    0xBEBC,0x001F,0xFF00,0x06AB,0xD5D7,0x8000,0x0000,0x0D55,
    X    0xAAAA,0xE000,0x0000,0x1BAB,0xD555,0x5800,0x0700,0x355D,
    X    0xAEAA,0xAE00,0xF800,0x6AAB,0xD555,0x7500,0x0000,0xD55D,
    X    0xAAAB,0xAAC0,0x0001,0xAAAB,0xD555,0x5570,0x0003,0x5555,
    X    0xBAAB,0xAAA8,0x0006,0xAABB,0xD577,0xD554,0x000D,0x5755,
    X    0xAAAA,0xAAAA,0x001A,0xEAAB,0xD755,0x5D55,0x0075,0x5755,
    X    0xABAA,0xAAEA,0xE1EB,0xAFAB,0xD755,0x5555,0x5F55,0x5555,
    X    0xAFAB,0xAAEA,0xBAAA,0xAAAB,0xD7D5,0x5557,0x5755,0x5555,
    X    0xAFAA,0xAAAA,0xABEA,0xABAB,0xDFD5,0x5555,0x555D,0x555D,
    X    0xAAAA,0xAEAE,0xBABB,0xAAAB,0xD555,0x5555,0x5557,0x755D,
    X    0xAAAA,0xAEAA,0xAAAA,0xAABF,0xFFFF,0xFFFF,0xFFFF,0xFFFF
SHAR_EOF
if test 2593 -ne "`wc -c < 'sunny.icon'`"
then
    echo shar: error transmitting "'sunny.icon'" '(should have been 2593 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tool.c'" '(30604 characters)'
if test -f 'tool.c'
then
    echo shar: will not over-write existing file "'tool.c'"
else
sed 's/^    X//' << \SHAR_EOF > 'tool.c'
    X/*
    X * $Header: tool.c,v 2.1 89/05/09 14:23:08 billr Exp $
    X */
    X/*
    X * tool.c
    X *
    X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin![e-mail]>
    X *
    X * Original source Copyright (C) 1987, Sun Microsystems, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify this program in source
    X * or binary form as long as it is not sold for profit and this copyright
    X * notice remains intact.
    X *
    X *
    X * Changes/additions by: Bill Randle, Tektronix, Inc. <[e-mail]>
    X *
    X * Changes and additions Copyright (C) 1988, 1989 Tektronix, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify the modifications in source
    X * or binary form as long as they are not sold for profit and this copyright
    X * notice remains intact.
    X */
    X#include <stdio.h>    /* for NULL */
    X#include <suntool/sunview.h>
    X#include <suntool/canvas.h>
    X#include <suntool/panel.h>
    X#include <sunwindow/defaults.h>
    X#include <sys/file.h>
    X#include "ct.h"
    X
    Xextern struct tm current;
    Xextern Frame frame;
    Xextern int working_msg;
    XCanvas canvas;
    XPanel panel;
    XPanel_item todaybutton_pi, working_pi;
    XPanel_item monthmenu_pi, yearmenu_pi, weekbutton_pi, daybutton_pi;
    XPanel_item previous_pi, next_pi, current_pi, filebutton_pi;
    XPanel_item clock_pi;
    X#ifndef NO_PRINTER
    XPanel_item printbutton_pi;
    X#endif
    X#ifndef NO_SUN_MOON
    XPanel_item moonbutton_pi, sunbutton_pi;
    X#endif
    XMenu next_menu, previous_menu;
    XMenu day_menu, week_menu, month_menu, year_menu;
    XMenu day_sel_menu, current_menu;
    X#ifndef NO_PRINTER
    XMenu print_menu;
    X#endif
    XPixfont *font, *bigfont, *sfont;
    XFrame fframe = 0;
    XPanel fpanel, fcpanel;
    XFrame attr_frame;
    XPanel attr_panel;
    XPanel_item repeat_pi, remind_pi, everyx_pi, whichwk_pi, marked_pi;
    XFrame del_frame;
    XPanel del_panel;
    XPanel_item del_choice_pi;
    XFrame wmore_frame;
    XPanel wmore_panel;
    X#ifndef NO_SUN_MOON
    XFrame sframe = 0, mframe = 0;
    X#endif
    XFrame fileframe;
    XPanel filepanel;
    XPanel_item filename_pi, file_ro_pi;
    X#ifndef NO_PRINTER
    XPanel_item prcmd_pi;
    XFrame prframe;
    X#endif
    X#ifndef NO_SUN_MOON
    XCanvas scanvas, mcanvas;
    XPanel_item sdate_pi, mdate_pi;
    X#endif
    XFrame prompt_frame = 0;
    XPixrect *morebutton;
    Xstatic Cursor panel_cursor, canvas_cursor;
    XFrame date_frame;
    XPanel_item setdate_pi;
    XFrame cut_frame;
    XPanel cut_panel;
    Xvoid monthmenu_notify(), yearmenu_notify(), weekbutton_notify();
    Xvoid month_menu_event(), year_menu_event(), week_menu_event();
    Xvoid todaybutton_notify(), currentbutton_notify(), daybutton_notify();
    Xvoid filebutton_notify(), current_menu_event();
    Xvoid cut_done(), cut_abort();
    X#ifndef NO_SUN_MOON
    Xvoid moonbutton_notify(), sunbutton_notify();
    X#endif
    X#ifndef NO_PRINTER
    Xvoid printbutton_notify(), print_menu_event();
    X#endif
    Xvoid day_menu_event();
    Xvoid mainsw_selected();
    Xvoid next_menu_event(), nextbutton_notify();
    Xvoid previous_menu_event(), previous_menu_notify();
    Xvoid mainsw_inputevent();
    Xvoid fdone_proc(), fkeep_proc(), fappt_notify();
    Xvoid attr_accept(), attr_abort();
    Xvoid del_done();
    X#ifndef NO_SUN_MOON
    Xvoid sdone_proc(), mdone_proc();
    Xvoid sframe_done(), mframe_done();
    X#endif
    Xvoid fileframe_done(), file_accept(), file_reset(), file_done();
    Xvoid file_save();
    Xvoid prompt_no_notify(), prompt_yes_notify();
    Xvoid error_event(), file_orig();
    Xvoid dtframe_done(), dtdone_proc();
    X#ifndef NO_PRINTER
    Xvoid prframe_done(), prdone_proc();
    X#endif
    XNotify_value check_close();
    Xint monthlength();
    Xchar year_str[NR_YEARS][5]; /* holds strings for year menu */
    Xextern Pixwin *main_pixwin;
    Xextern Cursor day_cursor, wait_cursor;
    Xextern int day_is_open, mainsw_state;
    Xextern char todays_date[];
    Xextern struct appt_entry future[];
    Xextern int findex;
    Xextern struct dayslot slots[];
    X#ifndef NO_SUN_MOON
    Xextern Pixrect moon_icon_pr, sun_icon_pr;
    X#endif
    Xextern char printer[];
    X
    X/* Create and init control panel */
    Xcreate_panel()
    X{
    X    int    width;
    X
    X    /* Create the control panel. */
    X    panel = window_create(frame, PANEL,
    X              WIN_HEIGHT, 72, WIN_FONT, font,
    X              WIN_CONSUME_KBD_EVENTS,
    X              WIN_UP_EVENTS, KEY_LEFT(7), 0,
    X              WIN_ERROR_MSG, "Can't create main panel.",
    X              0);
    X
    X    /* Create the panel items and their menus */
    X    day_menu = menu_create(MENU_STRINGS,
    X            "Sunday", "Monday", "Tuesday", "Wednesday",
    X            "Thursday", "Friday", "Saturday", 0,
    X            0);
    X
    X    daybutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Day", 4, font),
    X            PANEL_EVENT_PROC, day_menu_event,
    X                        PANEL_NOTIFY_PROC, daybutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(2),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X                        0);
    X
    X    week_menu = menu_create(MENU_STRINGS, "1st", "2nd",
    X            "3rd", "4th", "5th", "Last", 0,
    X            0);
    X
    X    weekbutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Week", 5, font),
    X            PANEL_EVENT_PROC, week_menu_event,
    X                        PANEL_NOTIFY_PROC, weekbutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(8),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X                        0);
    X
    X    month_menu = menu_create(MENU_STRINGS,
    X            "January", "February","March",
    X            "April", "May", "June", "July", "August",
    X            "September", "October", "November", "December", 0,
    X            0);
    X
    X    monthmenu_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X              panel_button_image(panel, "Month", 6, font),
    X            PANEL_EVENT_PROC, month_menu_event,
    X                        PANEL_NOTIFY_PROC, monthmenu_notify,
    X            PANEL_ITEM_X, ATTR_COL(15),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X                        0);
    X
    X    year_menu = menu_create(0);    /* years filled in later */
    X    add_years_to_menu();
    X
    X    yearmenu_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X              panel_button_image(panel, "Year", 5, font),
    X            PANEL_EVENT_PROC, year_menu_event,
    X                        PANEL_NOTIFY_PROC, yearmenu_notify,
    X            PANEL_ITEM_X, ATTR_COL(23),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X                        0);
    X
    X    todaybutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Today", 6, font),
    X                        PANEL_NOTIFY_PROC, todaybutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(33),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X                        0);
    X
    X    filebutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "File", 5, font),
    X                        PANEL_NOTIFY_PROC, filebutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(45),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X                        0);
    X
    X#ifndef NO_PRINTER
    X    printbutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Print", 6, font),
    X                        PANEL_EVENT_PROC, print_menu_event,
    X                        PANEL_NOTIFY_PROC, printbutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(53),
    X            PANEL_ITEM_Y, ATTR_ROW(0)+2,
    X            PANEL_SHOW_ITEM, FALSE,
    X                        0);
    X
    X    print_menu = menu_create(MENU_STRINGS, "Print Postscript", "Print Raster",
    X            "Change Printer", 0,
    X            0);
    X#endif
    X
    X    working_pi = panel_create_item(panel, PANEL_MESSAGE,
    X            PANEL_LABEL_STRING, "Working!",
    X            PANEL_LABEL_FONT, font,
    X            PANEL_LABEL_BOLD, TRUE,
    X            PANEL_SHOW_ITEM, FALSE,
    X            PANEL_ITEM_X, ATTR_COL(37),
    X            PANEL_ITEM_Y, ATTR_ROW(1)+5,
    X            0);
    X
    X    previous_menu = menu_create(MENU_STRINGS,
    X            "Yesterday", "Last Week", "Last Month", "Last Year", 0,
    X            0);
    X
    X    previous_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Previous", 9, font),
    X            PANEL_EVENT_PROC, previous_menu_event,
    X                        PANEL_NOTIFY_PROC, previous_menu_notify,
    X            PANEL_ITEM_X, ATTR_COL(2),
    X            PANEL_ITEM_Y, ATTR_ROW(2)-2,
    X            0);
    X
    X    current_menu = menu_create(MENU_STRINGS, "Current Day",
    X            "Current Week", "Current Month", "Current Year",
    X            "Change Date", 0,
    X            0);
    X
    X    current_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Current", 8, font),
    X            PANEL_EVENT_PROC, current_menu_event,
    X                        PANEL_NOTIFY_PROC, currentbutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(13),
    X            PANEL_ITEM_Y, ATTR_ROW(2)-2,
    X                        0);
    X
    X    next_menu = menu_create(MENU_STRINGS,
    X            "Tommorow", "Next Week", "Next Month", "Next Year", 0,
    X            0);
    X
    X    next_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE,
    X                          panel_button_image(panel, "Next", 5, font),
    X            PANEL_EVENT_PROC, next_menu_event,
    X                        PANEL_NOTIFY_PROC, nextbutton_notify,
    X            PANEL_ITEM_X, ATTR_COL(23),
    X            PANEL_ITEM_Y, ATTR_ROW(2)-2,
    X            0);
    X
    X    width = (int)window_get(panel, WIN_WIDTH);
    X
    X    clock_pi = panel_create_item(panel, PANEL_MESSAGE,
    X            PANEL_ITEM_X, width-150-(strlen(todays_date)*font->pf_defaultsize.x),
    X            PANEL_ITEM_Y, ATTR_ROW(2)+3,
    X            PANEL_LABEL_STRING, todays_date,
    X            PANEL_LABEL_FONT, font,
    X            0);
    X
    X#ifndef NO_SUN_MOON
    X    sunbutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE, &sun_icon_pr,
    X                        PANEL_NOTIFY_PROC, sunbutton_notify,
    X            PANEL_ITEM_X, width-140,
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            PANEL_SHOW_ITEM, FALSE,
    X                        0);
    X
    X    moonbutton_pi = panel_create_item(panel, PANEL_BUTTON,
    X                        PANEL_LABEL_IMAGE, &moon_icon_pr,
    X                        PANEL_NOTIFY_PROC, moonbutton_notify,
    X            PANEL_ITEM_X, width-70,
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            PANEL_SHOW_ITEM, FALSE,
    X                        0);
    X#endif
    X
    X    /*
    X     * menu strings for right MB menu in the canvas
    X     * (day display). NB: if the order of this menu is
    X     * changed, also change the #defines in ct.h
    X     * (MMODIFY, MCUT, etc.).
    X     */
    X    day_sel_menu = menu_create(MENU_STRINGS,
    X            "Modify", "Cut", "Paste", "Copy", "Delete",
    X            "Undelete", 0,
    X            0);
    X
    X    /*
    X     * this button is displayed in the canvas, but needs a panel
    X     * for the function call to work properly
    X     */
    X    morebutton = panel_button_image(panel, "More", 4, font);
    X
    X    /*
    X     * interpose on panel events to check for L7 (open/close)
    X     */
    X    notify_interpose_event_func(panel, check_close, NOTIFY_SAFE);
    X}
    X
    X/*
    X * Add year strings to year panel menu
    X */
    Xadd_years_to_menu()
    X{
    X    int n, year;
    X
    X    n = 1;
    X    for (year=START_YEAR; year<START_YEAR+NR_YEARS; year++,n++) {
    X        sprintf(year_str[n-1], "%4d", year+1900);
    X        menu_set(year_menu, MENU_STRING_ITEM, year_str[n-1], n, 0);
    X    }
    X}
    X
    X/* turn sun and moon buttons on or off */
    Xsun_moon_buttons(state)
    Xint state;
    X{
    X#ifndef NO_SUN_MOON
    X    if (state) {
    X        if (!mframe)
    X            panel_set(moonbutton_pi, PANEL_SHOW_ITEM, TRUE, 0);
    X        if (!sframe)
    X            panel_set(sunbutton_pi, PANEL_SHOW_ITEM, TRUE, 0);
    X    } else {
    X        panel_set(moonbutton_pi, PANEL_SHOW_ITEM, FALSE, 0);
    X        panel_set(sunbutton_pi, PANEL_SHOW_ITEM, FALSE, 0);
    X        /* remove moon window, if it exists */
    X        if (mframe) {
    X            window_destroy(mframe);
    X            mframe = 0;
    X        }
    X        /* remove sun window, if it exists */
    X        if (sframe) {
    X            window_destroy(sframe);
    X            sframe = 0;
    X        }
    X    }
    X#endif
    X}
    X
    X/* turn print button on or off */
    Xprint_button(state)
    Xint state;
    X{
    X#ifndef NO_PRINTER
    X/* if no printer specified then never show Print button */
    X    if (state)
    X        panel_set(printbutton_pi, PANEL_SHOW_ITEM, TRUE, 0);
    X    else
    X        panel_set(printbutton_pi, PANEL_SHOW_ITEM, FALSE, 0);
    X#endif    /* NO_PRINTER */
    X}
    X
    Xworking(state)
    Xint state;
    X{
    X    /* turn "Working!" message on or off */
    X    if (working_msg) {
    X        if (state)
    X            panel_set(working_pi, PANEL_SHOW_ITEM, TRUE, 0);
    X        else
    X            panel_set(working_pi, PANEL_SHOW_ITEM, FALSE, 0);
    X    }
    X}
    X
    X/* Create and init main subwindow. */
    Xcreate_main_window()
    X{
    X    canvas = window_create(frame, CANVAS,
    X            CANVAS_FIXED_IMAGE, TRUE,
    X            WIN_CONSUME_KBD_EVENTS, WIN_ASCII_EVENTS,
    X            WIN_UP_EVENTS, KEY_LEFT(7), 0,
    X            WIN_CONSUME_PICK_EVENTS, WIN_NO_EVENTS,
    X            WIN_MOUSE_BUTTONS, LOC_STILL, LOC_DRAG,
    X            WIN_IN_TRANSIT_EVENTS, 0,
    X            WIN_EVENT_PROC, mainsw_inputevent,
    X            CANVAS_RETAINED, TRUE,
    X            WIN_BELOW, panel,
    X            WIN_ERROR_MSG, "Can't create main window.",
    X            0);
    X    main_pixwin = (Pixwin *) canvas_pixwin(canvas);
    X
    X    window_set(canvas, WIN_CURSOR, day_cursor, 0);
    X    mainsw_state = DISPLAYING_DAY;
    X    day_is_open = FALSE;
    X    draw_day1();  /* like draw_day(), only no future popup */
    X}
    X
    Xget_fonts()
    X{
    X    char *default_ptr, fontstr[128];
    X
    X    /* Open normal and big font files. */
    X    if ((default_ptr = defaults_get_string("/CalenTool/Font", NULL, 0)) != NULL) {
    X        if (*default_ptr != '/') {
    X            strcpy(fontstr, "/usr/lib/fonts/fixedwidthfonts/");
    X            strcat(fontstr, default_ptr);
    X            if ((font = pf_open(fontstr)) == NULL)
    X                font = pw_pfsysopen();
    X        } else {
    X            if ((font = pf_open(default_ptr)) == NULL)
    X                font = pw_pfsysopen();
    X        }
    X    } else
    X        font = pw_pfsysopen();
    X    if ((default_ptr = defaults_get_string("/CalenTool/BigFont", NULL, 0)) != NULL) {
    X        if (*default_ptr != '/') {
    X            strcpy(fontstr, "/usr/lib/fonts/fixedwidthfonts/");
    X            strcat(fontstr, default_ptr);
    X            if ((bigfont = pf_open(fontstr)) == NULL)
    X                bigfont = pf_open("/usr/lib/fonts/fixedwidthfonts/gallant.r.10");
    X        } else {
    X            if ((bigfont = pf_open(default_ptr)) == NULL)
    X                bigfont = pf_open("/usr/lib/fonts/fixedwidthfonts/gallant.r.10");
    X        }
    X    } else
    X        bigfont = pf_open("/usr/lib/fonts/fixedwidthfonts/gallant.r.10");
    X    /* font for displaying time under the icon */
    X    sfont = pf_open("/usr/lib/fonts/fixedwidthfonts/screen.r.7");
    X}
    X
    X/*
    X * create popup window for future appts display
    X * called when we draw a day display.
    X */
    Xcreate_future_popup()
    X{
    X    int i, p_width;
    X    Panel_item item;
    X    char *fappt_str, *format_appt();
    X    static Panel_item fdone_pi, fkeep_pi;
    X    static int cp_width, cp_x;
    X
    X    if (!fframe) {
    X        /* create new frame and control panel */
    X        fframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X                WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
    X                WIN_Y, slots[N_SLOTS-4].slot_pos.top,
    X                FRAME_LABEL, "Future Appointments",
    X                FRAME_SHOW_LABEL, TRUE,
    X                WIN_ERROR_MSG, "Can't create future frame.",
    X                0);
    X
    X        fcpanel = window_create(fframe, PANEL, 0);
    X
    X        fkeep_pi = panel_create_item(fcpanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X                fkeep_proc, PANEL_LABEL_IMAGE,
    X                panel_button_image(fcpanel, "Keep", 4, font),
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(20),
    X                PANEL_ITEM_Y, ATTR_ROW(0),
    X                0);
    X
    X        fdone_pi = panel_create_item(fcpanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X                fdone_proc, PANEL_LABEL_IMAGE,
    X                panel_button_image(fcpanel, "Done", 4, font),
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(30),
    X                PANEL_ITEM_Y, ATTR_ROW(0),
    X                0);
    X
    X        window_fit(fcpanel);
    X        cp_width = (int) window_get(fcpanel, WIN_WIDTH);
    X        cp_x = (int) window_get(fcpanel, WIN_X);
    X
    X    } else {
    X        /* existing frame, so just delete and recreate the
    X         * message panel and its items
    X         */
    X        window_destroy(fpanel);
    X    }
    X    fpanel = window_create(fframe, PANEL, WIN_BELOW, fcpanel,
    X            WIN_FONT, font, WIN_X, cp_x, 0);
    X    /* create a panel message item for each future appt */
    X    for (i=0; i<findex; i++) {
    X        fappt_str = format_appt(&future[i]);
    X        (void) panel_create_item(fpanel, PANEL_MESSAGE,
    X                PANEL_NOTIFY_PROC, fappt_notify,
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_CLIENT_DATA, (caddr_t)i,
    X                PANEL_LABEL_X, ATTR_COL(1),
    X                PANEL_LABEL_Y, ATTR_ROW(i),
    X                PANEL_LABEL_FONT, font,
    X                PANEL_LABEL_STRING, fappt_str,
    X                0);
    X    }
    X    window_fit(fpanel);
    X    /* find out which panel is wider and use it for frame width */
    X    p_width = (int) window_get(fpanel, WIN_WIDTH);
    X    if (p_width > cp_width) {
    X        /* reset control panel size */
    X        window_set(fcpanel, WIN_WIDTH, p_width, 0);
    X        /* move buttons */
    X        panel_set(fdone_pi, PANEL_ITEM_X, ATTR_COL(-7)+p_width,
    X                PANEL_SHOW_ITEM, TRUE,
    X                0);
    X        panel_set(fkeep_pi, PANEL_ITEM_X, ATTR_COL(-17)+p_width,
    X                PANEL_SHOW_ITEM, TRUE,
    X                0);
    X    } else {
    X        window_set(fpanel, WIN_WIDTH, cp_width, 0);
    X        /* move buttons */
    X        panel_set(fdone_pi, PANEL_ITEM_X, ATTR_COL(-7)+cp_width,
    X                PANEL_SHOW_ITEM, TRUE,
    X                0);
    X        panel_set(fkeep_pi, PANEL_ITEM_X, ATTR_COL(-17)+cp_width,
    X                PANEL_SHOW_ITEM, TRUE,
    X                0);
    X    }
    X    window_fit(fframe);
    X}
    X
    X/*
    X * create a popup to modify or set attributes for a given
    X * appointment.
    X */
    Xcreate_attr_frame()
    X{
    X    void everyx_notify();
    X
    X    /* create new frame and control panel */
    X    attr_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X            FRAME_SHOW_LABEL, FALSE,
    X            WIN_ERROR_MSG, "Can't create attributes frame.",
    X            0);
    X
    X    attr_panel = window_create(attr_frame, PANEL,
    X            WIN_FONT, font,
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    (void) panel_create_item(attr_panel, PANEL_MESSAGE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_LABEL_STRING, "Appointment Options",
    X            PANEL_LABEL_X, ATTR_COL(4),
    X            PANEL_LABEL_Y, ATTR_ROW(0)+4,
    X            PANEL_LABEL_BOLD, TRUE,
    X            0);
    X
    X    (void) panel_create_item(attr_panel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            attr_accept, PANEL_LABEL_IMAGE,
    X            panel_button_image(attr_panel, "Accept", 6, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(35),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(attr_panel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            attr_abort, PANEL_LABEL_IMAGE,
    X            panel_button_image(attr_panel, "Abort", 5, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(45),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    everyx_pi = panel_create_item(attr_panel, PANEL_TOGGLE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_DISPLAY_LEVEL, PANEL_ALL,
    X            PANEL_NOTIFY_PROC, everyx_notify,
    X            PANEL_LABEL_STRING, "Repeat appointment:",
    X            PANEL_CHOICE_STRINGS, "Every Day", "Selected Week",
    X            "Every Month", "Every Year", 0,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(2)-5,
    X            0);
    X
    X    whichwk_pi = panel_create_item(attr_panel, PANEL_TOGGLE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_DISPLAY_LEVEL, PANEL_ALL,
    X            PANEL_LABEL_STRING,
    X            "Indicate which week(s) in the month:",
    X            PANEL_CHOICE_STRINGS, "1st", "2nd",
    X            "3rd", "4th", "5th", "Last", 0,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(3)-5,
    X            0);
    X
    X    repeat_pi = panel_create_item(attr_panel, PANEL_TEXT,
    X            PANEL_SHOW_ITEM, FALSE,
    X            PANEL_LABEL_STRING,
    X            "Repeat at specified interval of days:",
    X            PANEL_VALUE, 0, PANEL_VALUE_STORED_LENGTH, 4,
    X            PANEL_VALUE_DISPLAY_LENGTH, 4,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(3),
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    remind_pi = panel_create_item(attr_panel, PANEL_TEXT,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_LABEL_STRING,
    X            "Warn in advance by specified number of days:",
    X            PANEL_VALUE, 0, PANEL_VALUE_STORED_LENGTH, 4,
    X            PANEL_VALUE_DISPLAY_LENGTH, 4,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(4),
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    /* This panel item is currently only supported
    X     * for note appointment entries.
    X     */
    X    marked_pi = panel_create_item(attr_panel, PANEL_CYCLE,
    X            PANEL_SHOW_ITEM, FALSE,
    X            PANEL_LABEL_STRING,
    X            "Mark in month/year display:",
    X            PANEL_CHOICE_STRINGS, "Yes", "No", 0,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(5),
    X            0);
    X
    X    window_fit(attr_panel);
    X    window_fit(attr_frame);
    X}
    X
    X/*
    X * create a popup to choose delete mode
    X */
    Xcreate_del_frame()
    X{
    X    /* create new frame and control panel */
    X    del_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X            FRAME_SHOW_LABEL, FALSE,
    X            WIN_ERROR_MSG, "Can't create delete frame.",
    X            0);
    X
    X    del_panel = window_create(del_frame, PANEL,
    X            WIN_FONT, font,
    X            0);
    X
    X    (void) panel_create_item(del_panel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            del_done, PANEL_LABEL_IMAGE,
    X            panel_button_image(del_panel, "Accept", 6, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(30),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(del_panel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            attr_abort, PANEL_LABEL_IMAGE,
    X            panel_button_image(del_panel, "Abort", 5, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(40),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(del_panel, PANEL_MESSAGE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_LABEL_STRING, "This is a recurring appointment.",
    X            PANEL_LABEL_X, ATTR_COL(1),
    X            PANEL_LABEL_Y, ATTR_ROW(1)+5,
    X            PANEL_LABEL_BOLD, TRUE,
    X            0);
    X
    X    del_choice_pi = panel_create_item(del_panel, PANEL_CYCLE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_LABEL_STRING, "Do you wish to:",
    X            PANEL_CHOICE_STRINGS, "Delete this occurrance only", "Delete all occurrances", 0,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(2)+5,
    X            0);
    X
    X    window_fit(del_panel);
    X    window_fit(del_frame);
    X}
    X
    X#ifndef NO_SUN_MOON
    X/*
    X * create popup for sun data frame
    X */
    Xsun_data_frame()
    X{
    X    Panel spanel;
    X
    X    /* create new frame and canvas */
    X    if (!sframe) {
    X        sframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X                WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
    X                FRAME_LABEL, "Solar Data",
    X                FRAME_SHOW_LABEL, TRUE,
    X                FRAME_DONE_PROC, sframe_done,
    X                WIN_ERROR_MSG, "Can't create sun data frame.",
    X                0);
    X
    X        spanel = window_create(sframe, PANEL, WIN_FONT, font,
    X                WIN_WIDTH, 55*font->pf_defaultsize.x,
    X                WIN_ERROR_MSG, "Can't create sun data panel.",
    X                0);
    X
    X        (void) panel_create_item(spanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X                sdone_proc, PANEL_LABEL_IMAGE,
    X                panel_button_image(spanel, "Done", 4, font),
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(45),
    X                PANEL_ITEM_Y, ATTR_ROW(0),
    X                0);
    X
    X        sdate_pi = panel_create_item(spanel, PANEL_MESSAGE,
    X                PANEL_ITEM_X, ATTR_COL(8),
    X                PANEL_ITEM_Y, ATTR_ROW(0),
    X                /* string filled in later */
    X                PANEL_LABEL_STRING, "",
    X                PANEL_LABEL_FONT, font,
    X                0);
    X
    X        window_fit_height(spanel);
    X        scanvas = window_create(sframe, CANVAS, WIN_BELOW, spanel,
    X                WIN_X, 0,
    X                WIN_HEIGHT, 17*font->pf_defaultsize.y,
    X                WIN_CONSUME_PICK_EVENT, WIN_NO_EVENTS,
    X                WIN_CONSUME_KBD_EVENT, WIN_NO_EVENTS,
    X                WIN_ERROR_MSG, "Can't create sun data canvas.",
    X                0);
    X
    X        write_sun_data();
    X        window_fit(sframe);
    X    } else
    X        write_sun_data();
    X}
    X
    X/*
    X * create popup for moon data frame
    X */
    Xmoon_data_frame()
    X{
    X    Panel mpanel;
    X
    X    /* create new frame and canvas */
    X    if (!mframe) {
    X        mframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X                WIN_SHOW, TRUE, WIN_X, ATTR_COL(12),
    X                FRAME_LABEL, "Lunar Data",
    X                FRAME_SHOW_LABEL, TRUE,
    X                FRAME_DONE_PROC, mframe_done,
    X                WIN_ERROR_MSG, "Can't create moon data frame.",
    X                0);
    X
    X        mpanel = window_create(mframe, PANEL, WIN_FONT, font,
    X                WIN_WIDTH, 70*font->pf_defaultsize.x,
    X                WIN_ERROR_MSG, "Can't create moon data panel.",
    X                0);
    X
    X        (void) panel_create_item(mpanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X                mdone_proc, PANEL_LABEL_IMAGE,
    X                panel_button_image(mpanel, "Done", 4, font),
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(60),
    X                PANEL_ITEM_Y, ATTR_ROW(0),
    X                0);
    X
    X        mdate_pi = panel_create_item(mpanel, PANEL_MESSAGE,
    X                PANEL_ITEM_X, ATTR_COL(8),
    X                PANEL_ITEM_Y, ATTR_ROW(0),
    X                /* string filled in later */
    X                PANEL_LABEL_STRING, "",
    X                PANEL_LABEL_FONT, font,
    X                0);
    X
    X        window_fit_height(mpanel);
    X        mcanvas = window_create(mframe, CANVAS, WIN_BELOW, mpanel,
    X                WIN_X, 0,
    X                WIN_HEIGHT, 17*font->pf_defaultsize.y,
    X                CANVAS_RETAINED, TRUE,
    X                WIN_CONSUME_PICK_EVENT, WIN_NO_EVENTS,
    X                WIN_CONSUME_KBD_EVENT, WIN_NO_EVENTS,
    X                WIN_ERROR_MSG, "Can't create moon data canvas.",
    X                0);
    X
    X        write_moon_data();
    X        window_fit(mframe);
    X    } else
    X        write_moon_data();
    X}
    X#endif    /* NO_SUN_MOON */
    X
    X/*
    X * create a popup to allow selecting a different appointment file
    X */
    Xcreate_file_frame()
    X{
    X
    X    /* create new frame and control panel */
    X    fileframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X            FRAME_LABEL, "File Selection",
    X            FRAME_SHOW_LABEL, TRUE,
    X            FRAME_DONE_PROC, fileframe_done,
    X            WIN_ERROR_MSG, "Can't create file frame.",
    X            0);
    X
    X    filepanel = window_create(fileframe, PANEL, WIN_FONT, font,
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    file_ro_pi = panel_create_item(filepanel, PANEL_CYCLE, PANEL_CHOICE_STRINGS,
    X            "Read Only", "Read/Write", 0,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(filepanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            file_orig, PANEL_LABEL_IMAGE,
    X            panel_button_image(filepanel, "Original", 7, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(17),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(filepanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            file_accept, PANEL_LABEL_IMAGE,
    X            panel_button_image(filepanel, "Accept", 6, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(27),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(filepanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            file_reset, PANEL_LABEL_IMAGE,
    X            panel_button_image(filepanel, "Reset", 5, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(35),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(filepanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            file_save, PANEL_LABEL_IMAGE,
    X            panel_button_image(filepanel, "Update", 6, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(42),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(filepanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            file_done, PANEL_LABEL_IMAGE,
    X            panel_button_image(filepanel, "Done", 4, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(50),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    (void) panel_create_item(filepanel, PANEL_MESSAGE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_LABEL_STRING, "Enter the desired appointment file",
    X            PANEL_LABEL_X, ATTR_COL(6),
    X            PANEL_LABEL_Y, ATTR_ROW(2),
    X            PANEL_LABEL_BOLD, TRUE,
    X            0);
    X
    X    filename_pi = panel_create_item(filepanel, PANEL_TEXT,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_LABEL_STRING, "Filename:",
    X            PANEL_LABEL_BOLD, TRUE,
    X            PANEL_VALUE, 0, PANEL_VALUE_STORED_LENGTH, 128,
    X            PANEL_VALUE_DISPLAY_LENGTH, 30,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(3),
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    window_fit(filepanel);
    X    window_fit(fileframe);
    X}
    X
    X/*
    X * create a popup to display an error message
    X */
    Xcreate_prompt_frame(str1, buttonflag)
    Xchar *str1;
    X{
    X    static Panel_item prompt_panel;
    X    static Panel_item msg_pi, yes_pi, no_pi = 0;
    X
    X    if (!prompt_frame) {
    X        /* create new frame and control panel */
    X        prompt_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X                FRAME_SHOW_LABEL, FALSE,
    X                WIN_SHOW, TRUE,
    X                WIN_X, ATTR_COL(15), WIN_Y, ATTR_ROW(15),
    X                WIN_ERROR_MSG, "Can't create error frame.",
    X                0);
    X
    X        prompt_panel = window_create(prompt_frame, PANEL,
    X                PANEL_ACCEPT_KEYSTROKE, FALSE,
    X                WIN_FONT, font,
    X                0);
    X    } else {
    X        /* existing frame, delete the items */
    X        panel_destroy_item(msg_pi);
    X        panel_destroy_item(yes_pi);
    X        if (no_pi) {
    X            panel_destroy_item(no_pi);
    X            no_pi = 0;
    X        }
    X    }
    X
    X    /* create new message and button panel items */
    X    msg_pi = panel_create_item(prompt_panel, PANEL_MESSAGE,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            PANEL_LABEL_STRING, str1,
    X            PANEL_LABEL_BOLD, TRUE,
    X            0);
    X
    X    if (buttonflag) {
    X        yes_pi = panel_create_item(prompt_panel, PANEL_BUTTON,
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(4),
    X                PANEL_ITEM_Y, ATTR_ROW(2),
    X                PANEL_NOTIFY_PROC, prompt_yes_notify,
    X                PANEL_LABEL_IMAGE,
    X                panel_button_image(prompt_panel, "Yes", 3, font),
    X                0);
    X
    X        no_pi = panel_create_item(prompt_panel, PANEL_MESSAGE,
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(12),
    X                PANEL_ITEM_Y, ATTR_ROW(2),
    X                PANEL_NOTIFY_PROC, prompt_no_notify,
    X                PANEL_LABEL_IMAGE,
    X                panel_button_image(prompt_panel, "No", 2, font),
    X                0);
    X    } else {
    X        yes_pi = panel_create_item(prompt_panel, PANEL_MESSAGE,
    X                PANEL_SHOW_ITEM, TRUE,
    X                PANEL_ITEM_X, ATTR_COL(12),
    X                PANEL_ITEM_Y, ATTR_ROW(2),
    X                PANEL_NOTIFY_PROC, prompt_yes_notify,
    X                PANEL_LABEL_IMAGE,
    X                panel_button_image(prompt_panel, "Ok", 2, font),
    X                0);
    X    }
    X
    X    window_fit(prompt_panel);
    X    window_fit(prompt_frame);
    X}
    X
    X#ifndef NO_PRINTER
    X/* create popup to change the printer */
    Xcreate_print_frame()
    X{
    X    Panel prpanel;
    X
    X    prframe = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X            WIN_SHOW, FALSE, WIN_X, ATTR_COL(12),
    X            FRAME_LABEL, "Change Printer",
    X            FRAME_SHOW_LABEL, TRUE,
    X            FRAME_DONE_PROC, prframe_done,
    X            WIN_ERROR_MSG, "Can't create printer frame.",
    X            0);
    X
    X    prpanel = window_create(prframe, PANEL, WIN_FONT, font,
    X            WIN_ERROR_MSG, "Can't create printer panel.",
    X            0);
    X
    X    (void) panel_create_item(prpanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            prdone_proc, PANEL_LABEL_IMAGE,
    X            panel_button_image(prpanel, "Done", 4, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(34),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    prcmd_pi = panel_create_item(prpanel, PANEL_TEXT,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(1)+5,
    X            PANEL_LABEL_STRING, "Print command:",
    X            PANEL_LABEL_FONT, font,
    X            PANEL_LABEL_BOLD, TRUE,
    X            PANEL_VALUE_STORED_LENGTH, 128,
    X            PANEL_VALUE_DISPLAY_LENGTH, 30,
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    panel_set_value(prcmd_pi, printer);
    X    window_fit(prpanel);
    X    window_fit(prframe);
    X}
    X#endif    /* NO_PRINTER */
    X
    X/* create popup to change the date */
    Xcreate_date_frame()
    X{
    X    Panel dtpanel;
    X    char date[9];
    X
    X    date_frame = window_create(frame, FRAME, FRAME_NO_CONFIRM, TRUE,
    X            WIN_SHOW, FALSE, WIN_X, ATTR_COL(12),
    X            FRAME_LABEL, "Change Current Date",
    X            FRAME_SHOW_LABEL, TRUE,
    X            FRAME_DONE_PROC, dtframe_done,
    X            WIN_ERROR_MSG, "Can't create date frame.",
    X            0);
    X
    X    dtpanel = window_create(date_frame, PANEL, WIN_FONT, font,
    X            WIN_ERROR_MSG, "Can't create date panel.",
    X            0);
    X
    X    (void) panel_create_item(dtpanel, PANEL_BUTTON, PANEL_NOTIFY_PROC,
    X            dtdone_proc, PANEL_LABEL_IMAGE,
    X            panel_button_image(dtpanel, "Done", 4, font),
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(34),
    X            PANEL_ITEM_Y, ATTR_ROW(0),
    X            0);
    X
    X    setdate_pi = panel_create_item(dtpanel, PANEL_TEXT,
    X            PANEL_SHOW_ITEM, TRUE,
    X            PANEL_ITEM_X, ATTR_COL(1),
    X            PANEL_ITEM_Y, ATTR_ROW(1)+5,
    X            PANEL_LABEL_STRING, "Enter date (D, M/D, or M/D/Y):",
    X            PANEL_LABEL_FONT, font,
    X            PANEL_LABEL_BOLD, TRUE,
    X            PANEL_VALUE_STORED_LENGTH, 10,
    X            PANEL_VALUE_DISPLAY_LENGTH, 10,
    X            PANEL_BLINK_CARET, TRUE,
    X            0);
    X
    X    sprintf(date, "%d/%d/%02d", current.tm_mon+1, current.tm_mday, current.tm_year);
    X    panel_set_value(setdate_pi, date);
    X    window_fit(dtpanel);
    X    window_fit(date_frame);
    X}
    X
    X/* replace cursors with hourglass symbol to show we're waiting */
    Xlock_cursors()
    X{
    X    panel_cursor = cursor_copy((Cursor) window_get(panel, WIN_CURSOR));
    X    canvas_cursor = cursor_copy((Cursor) window_get(canvas, WIN_CURSOR));
    X    window_set(panel, WIN_CURSOR, wait_cursor, 0);
    X    window_set(canvas, WIN_CURSOR, wait_cursor, 0);
    X}
    X
    X/* restore cursors */
    Xunlock_cursors()
    X{
    X    window_set(panel, WIN_CURSOR, panel_cursor, 0);
    X    window_set(canvas, WIN_CURSOR, canvas_cursor, 0);
    X    cursor_destroy(panel_cursor);
    X    cursor_destroy(canvas_cursor);
    X}
SHAR_EOF
if test 30604 -ne "`wc -c < 'tool.c'`"
then
    echo shar: error transmitting "'tool.c'" '(should have been 30604 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'utils.c'" '(31671 characters)'
if test -f 'utils.c'
then
    echo shar: will not over-write existing file "'utils.c'"
else
sed 's/^    X//' << \SHAR_EOF > 'utils.c'
    X/*
    X * $Header: utils.c,v 2.2 89/05/16 16:30:18 billr Exp $
    X */
    X/*
    X * utils.c
    X *
    X * calentool - a year/month/week/day-at-a-glance calendar for Sun workstations.
    X *
    X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin![e-mail]>
    X *
    X * Original source Copyright (C) 1987, Sun Microsystems, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify this program in source
    X * or binary form as long as it is not sold for profit and this copyright
    X * notice remains intact.
    X *
    X *
    X * Changes/additions by: Bill Randle, Tektronix, Inc. <[e-mail]>
    X *
    X * Changes and additions Copyright (C) 1988, 1989 Tektronix, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify the modifications in source
    X * or binary form as long as they are not sold for profit and this copyright
    X * notice remains intact.
    X */
    X/********************************************
    X *                        *
    X *              Utility routines.        *
    X *                        *
    X ********************************************/
    X
    X
    X
    X#include "ct.h"
    X#include <stdio.h>
    X#include <suntool/sunview.h>
    X#include <suntool/canvas.h>
    X#include <ctype.h>
    X#include <sys/types.h>
    X#include <sys/file.h>
    X#include <sys/stat.h>
    X#include <sys/errno.h>
    X
    X
    Xextern struct tm today, current;
    Xextern struct tm First;
    Xextern int day_is_open, read_only;
    Xextern struct dayslot slots[];
    Xextern char apts_pathname[], tmpapts_pathname[];
    Xextern int dayslot_width, nr_weekdays, n_tslots;
    Xextern int dayslot_height;
    Xextern char *monthnames[], *daynames[];
    Xextern char *mailto, *progname;
    Xextern int one_based, version2, new_entry;
    Xextern int findex;
    Xextern struct appt_entry future[];
    Xextern char todays_date[];
    Xextern char apts_dir[], lib_dir[];
    Xextern char printer[];
    Xextern int include_old, save_old;
    Xextern Frame frame;
    Xextern Canvas canvas;
    Xextern Pixwin *main_pixwin;
    Xextern int mainsw_state;
    Xextern Pixfont *font, *sfont;
    Xextern Frame prompt_frame;
    Xextern int update_interval;
    Xextern int errno;
    X
    Xchar inbuf[512], strbuf[256], errbuf[64];
    Xchar todays_date[32];
    Xstatic int including;
    Xstatic int log_to_console;
    Xchar *daynames[] = {"Sunday","Monday","Tuesday","Wednesday",
    X               "Thursday","Friday","Saturday"};
    Xchar *monthnames[] = {"January","February","March","April",
    X                 "May","June","July","August",
    X                 "September","October","November","December"};
    Xchar *dayname[7] = {"SU", "MO", "TU", "WE", "TH", "FR", "SA"};
    Xchar rasfile[] = "/usr/tmp/calentool.ras";
    Xchar psfile[] = "/usr/tmp/calentool.ps";
    Xchar *fname = 0;
    X
    Xextern char *strcpy(), *strcat();
    X
    X/*
    X * sets "today" and current time
    X */
    Xvoid
    Xget_today()
    X{
    X    struct tm *tm;
    X    struct timeval tv;
    X
    X    gettimeofday(&tv, 0);
    X    tm = localtime(&tv.tv_sec);
    X
    X    today = *tm;
    X
    X    strcpy(todays_date, asctime(tm));
    X    if (update_interval >= 60)
    X        /* overwrite seconds field with year */
    X        sprintf(&todays_date[16], " %d", today.tm_year+1900);
    X    else
    X        /* just delete trailing \n */
    X        todays_date[strlen(todays_date)-1] = '\0';
    X}
    X
    X/*
    X *    Reset some values in current tm structure. Year, month and
    X *    day-of-month are valid but day and/or month may be < 0 or
    X *    greater than the maximum value, in which case they are adjusted
    X *    accordingly. Day-of-year and day-of-week are then recalculated.
    X */
    Xvoid
    Xfix_current_day()
    X{
    X    int month, totdays = 0;
    X    struct tm from, to;
    X
    X    if (current.tm_mon < JAN) {
    X        current.tm_mon = DEC;
    X        current.tm_year--;
    X    } else if (current.tm_mon > DEC) {
    X        current.tm_mon = JAN;
    X        current.tm_year++;
    X    }
    X    if (current.tm_mday < 1) {
    X        current.tm_mon--;
    X        if (current.tm_mon < JAN) {
    X            current.tm_mon = DEC;
    X            current.tm_year--;
    X        }
    X        current.tm_mday += monthlength(current.tm_mon);
    X    } else if (current.tm_mday > monthlength(current.tm_mon)) {
    X        current.tm_mday -= monthlength(current.tm_mon);
    X        current.tm_mon++;
    X        if (current.tm_mon > DEC) {
    X            current.tm_mon = JAN;
    X            current.tm_year++;
    X        }
    X    }
    X    current.tm_yday = current.tm_mday - 1;
    X    for (month = 0; month < current.tm_mon; month++) {
    X        current.tm_yday += monthlength(month);
    X    }
    X    if ((current.tm_year < today.tm_year)
    X        || ((current.tm_year == today.tm_year)
    X        && (current.tm_yday < today.tm_yday))) {
    X        from = current;
    X        to = today;
    X    } else {
    X        from = today;
    X        to = current;
    X    }
    X    if (from.tm_year != to.tm_year) {
    X        for (totdays = 0; from.tm_year < to.tm_year; from.tm_year++)
    X            totdays += dysize(from.tm_year + 1900);
    X    }
    X    totdays += to.tm_yday - from.tm_yday;
    X    if ((current.tm_year < today.tm_year)
    X        || ((current.tm_year == today.tm_year)
    X        && (current.tm_yday < today.tm_yday)))
    X        totdays = -totdays;
    X    current.tm_wday =
    X        ((totdays % 7) + 7 + today.tm_wday) % 7;
    X}
    X
    X/*
    X * Compares two sets of year/month/day.  Returns -1 if the first is earlier than
    X * the second, +1 if later, 0 if they are the same.
    X */
    Xymd_compare(day0, day1)
    Xstruct tm day0, day1;
    X{
    X        if (day0.tm_year > day1.tm_year) return(1);
    X        if (day0.tm_year < day1.tm_year) return(-1);
    X        if (day0.tm_mon > day1.tm_mon) return(1);
    X        if (day0.tm_mon < day1.tm_mon) return(-1);
    X        if (day0.tm_mday > day1.tm_mday) return(1);
    X        if (day0.tm_mday < day1.tm_mday) return(-1);
    X        return(0);
    X}
    X
    Xint
    Xmonthlength(month)
    Xint    month;
    X{
    X    static int    monthlengths[] = {31,28,31,30,31,30,31,31,30,31,30,31};
    X
    X    if (month == FEB && (dysize(current.tm_year + 1900) == 366))
    X        return(29);
    X    else
    X        return(monthlengths[month]);
    X}
    X
    X/*
    X *
    X * Append data from active timeslots to end of "tmp.appointments"
    X * file, then copy "tmp.appointments" to "appointments".  Note that
    X * when we opened the current day we filtered "appointments":
    X * all items that applied to the current day were displayed and
    X * stored in slots; all others were copied to "tmp.appointments".
    X * So by now "tmp.appointments" contains no entries for the
    X * current day.
    X * As an optimization, if nothing changed in the day then the
    X * original appointments file is left unchanged.
    X *
    X */
    X
    Xclose_day()
    X{
    X        int i, j;
    X        FILE *f;
    X    struct stat sbuf;
    X    struct appt_entry *aptr, *optr;
    X
    X    if (read_only || !new_entry) {
    X        new_entry = 0;
    X        day_is_open = FALSE;
    X        return(0);
    X    }
    X
    X    f = fopen(tmpapts_pathname, "a+");
    X    if (f == NULL) {
    X        err_rpt("can't open temp file for appending", NON_FATAL);
    X        day_is_open = FALSE;
    X        return(1);
    X    }
    X
    X    for (i=0; i<N_SLOTS; i++) {
    X                if (slots[i].first != NULL) {
    X            aptr = slots[i].first;
    X            if (put_aentry(f, aptr))
    X                /* write error */
    X                break;
    X            optr = aptr;
    X            while (aptr = aptr->next) {
    X                free(optr);
    X                if (put_aentry(f, aptr))
    X                    /* write error */
    X                    break;
    X                optr = aptr;
    X            }
    X            free(optr);
    X        }
    X        }
    X    if (ferror(f))
    X        err_rpt("write on temp file failed", FATAL);
    X        fclose(f);
    X    new_entry = 0;
    X    day_is_open = FALSE;
    X    /* don't rename zero length files */
    X    stat(tmpapts_pathname, &sbuf);
    X    if (sbuf.st_size == (off_t) 0)
    X        return(1);
    X    xrename(tmpapts_pathname, apts_pathname);
    X}
    X
    X/*
    X * get entry from appointments file
    X */
    Xget_aentry(apts_file, appt)
    XFILE *apts_file;
    Xstruct appt_entry *appt;
    X{
    X    char *ptr, *str;
    X    char *fgets(), *index();
    X    char *incl_ptr, incl_buf[128], wday[3];
    X    int i, lib;
    X    struct stat sbuf;
    X    static FILE *include;
    X
    X    appt->flags = appt->repeat = appt->lookahead = 0;
    X    appt->sindex = 0;
    X    appt->next = NULL;
    X    if (including) {
    X        if (fgets(inbuf, 512, include) == NULL) {
    X            /* end of include file - get next entry
    X             * from main file
    X             */
    X            including = 0;
    X            fclose(include);
    X            if (fgets(inbuf, 512, apts_file) == NULL)
    X                return(EOF);
    X        } else {
    X            including = 2;
    X            /* don't modify stuff from include files */
    X            appt->flags |= READONLY;
    X        }
    X    } else
    X        if (fgets(inbuf, 512, apts_file) == NULL)
    X            return(EOF);
    X    ptr = inbuf;
    X    if (*ptr == '#') {
    X        if (!strcmp(inbuf, HEADER) && !including) {
    X            /* first line in file read */
    X            if (include_old && (First.tm_year < today.tm_year)) {
    X                /* read in old include file (if it exists) */
    X                /* prepend directory info */
    X                sprintf(incl_buf, "%s/.appointments.%02d",
    X                    apts_dir, First.tm_year);
    X                if (!stat(incl_buf, &sbuf)) {
    X                    if ((include = fopen(incl_buf, "r")) == NULL)
    X                        err_rpt("can't open include file (ignored)", NON_FATAL);
    X                    else
    X                        including = 1;
    X                }
    X            }
    X        } else if (!strncmp(inbuf, "#include", 8)) {
    X            /* include file */
    X            if (including)
    X                err_rpt("include files may not be nested", FATAL);
    X            incl_ptr = strbuf;
    X            if ((ptr = index(inbuf, '"')) == NULL)
    X
    X                if ((ptr = index(inbuf, '<')) == NULL) {
    X                    err_rpt("missing '\"' or '<' in include file spec", NON_FATAL);
    X                    return(0);
    X                } else {
    X                    lib = 1;
    X                }
    X            else
    X                lib = 0;
    X            ptr++;
    X            while (*ptr && *ptr != '"' && *ptr != '>')
    X                *incl_ptr++ = *ptr++;
    X            if (! *ptr) {
    X                err_rpt("missing '\"' or '>' in include file spec", NON_FATAL);
    X                return(0);
    X            }
    X            *incl_ptr = '\0';
    X            if (strbuf[0] == '/')
    X                /* full pathname provided */
    X                strcpy(incl_buf, strbuf);
    X            else
    X                /* prepend directory info */
    X                if (lib)
    X                    sprintf(incl_buf, "%s/%s", lib_dir, strbuf);
    X                else
    X                    sprintf(incl_buf, "%s/%s", apts_dir, strbuf);
    X            if ((include = fopen(incl_buf, "r")) == NULL)
    X                err_rpt("can't open include file (ignored)", NON_FATAL);
    X            else
    X                including = 1;
    X        }
    X        appt->flags |= A_COMMENT;
    X        return(0);
    X    }
    X    while (isspace(*ptr))
    X        ++ptr;
    X    if (!*ptr) {
    X        /* empty line */
    X        appt->flags |= A_COMMENT;
    X        return(0);
    X    }
    X    if (*ptr == '*') {
    X        appt->flags |= ALL_YEARS;
    X        appt->year = START_YEAR;
    X        ++ptr;    /* point to second '*' */
    X        ++ptr;    /* point to space */
    X    } else {
    X        appt->year = 0;
    X        while (isdigit(*ptr)) {
    X            appt->year *= 10;
    X            appt->year += *ptr++ - '0';
    X        }
    X        /* sanity check */
    X        if (appt->year < 0) {
    X            err_rpt("illegal year value (ignored)", NON_FATAL);
    X            return(1);
    X        }
    X    }
    X    while (isspace(*ptr))
    X        ++ptr;
    X    if (*ptr == '*') {
    X        appt->flags |= ALL_MONTHS;
    X        appt->month = 0;
    X        ++ptr;
    X    } else {
    X        appt->month = (*ptr - '0') * 10;
    X        appt->month += *++ptr - '0';
    X        if (one_based) (appt->month)--;
    X        /* sanity check */
    X        if (appt->month < JAN || appt->month > DEC) {
    X            /*
    X            sprintf(errbuf, "illegal month value [%d] (ignored)", appt->month);
    X            err_rpt(errbuf, NON_FATAL);
    X            */
    X            err_rpt("illegal month value (ignored)", NON_FATAL);
    X            return(1);
    X        }
    X    }
    X    ++ptr;
    X    while (isspace(*ptr))
    X        ++ptr;
    X    if (*ptr == '*') {
    X        appt->flags |= ALL_DAYS;
    X        appt->day = 0;
    X        appt->repeat = 1;
    X        ++ptr;
    X    } else if (isdigit(*ptr)) {
    X        appt->day = (*ptr - '0') * 10;
    X        appt->day += *++ptr - '0';
    X        if (!one_based) (appt->day)++;
    X        /* sanity check */
    X        if (appt->day < 1 || appt->day > 31) {
    X            err_rpt("illegal day value (ignored)", NON_FATAL);
    X            return(1);
    X        }
    X    } else {
    X        /* check for day names */
    X        wday[0] = islower(*ptr) ? toupper(*ptr) : *ptr;
    X        ++ptr;
    X        wday[1] = islower(*ptr) ? toupper(*ptr) : *ptr;
    X        wday[2] = '\0';
    X        i = 0;
    X        if (!strcmp(wday, dayname[i++]))
    X            appt->flags |= EVERY_SUN;
    X        else if (!strcmp(wday, dayname[i++]))
    X            appt->flags |= EVERY_MON;
    X        else if (!strcmp(wday, dayname[i++]))
    X            appt->flags |= EVERY_TUE;
    X        else if (!strcmp(wday, dayname[i++]))
    X            appt->flags |= EVERY_WED;
    X        else if (!strcmp(wday, dayname[i++]))
    X            appt->flags |= EVERY_THU;
    X        else if (!strcmp(wday, dayname[i++]))
    X            appt->flags |= EVERY_FRI;
    X        else if (!strcmp(wday, dayname[i]))
    X            appt->flags |= EVERY_SAT;
    X        else {
    X            /* sanity check */
    X            err_rpt("illegal day name (ignored)", NON_FATAL);
    X            return(1);
    X        }
    X        appt->day = 0;
    X        appt->flags |= REPEAT;
    X        appt->repeat = ALL_WEEKS;    /* default to every week */
    X    }
    X    ++ptr;
    X    while (isspace(*ptr))
    X        ++ptr;
    X    appt->hour = (*ptr - '0') * 10;
    X    appt->hour += *++ptr - '0';
    X    /* sanity check */
    X    if (appt->hour < 0 || (appt->hour > 23 && appt->hour != 99)) {
    X        err_rpt("illegal hour value (ignored)", NON_FATAL);
    X        return(1);
    X    }
    X    if ((version2 && appt->hour == 99) || (!version2 && appt->hour == 0))
    X        appt->flags |= A_NOTE;
    X    ++ptr;
    X    while (isspace(*ptr))
    X        ++ptr;
    X    appt->minute = (*ptr - '0') * 10;
    X    appt->minute += *++ptr - '0';
    X    /* sanity check */
    X    if (appt->minute < 0 || (appt->minute > 59 && appt->minute != 99)) {
    X        /* minutes currently can only be 00 or 30
    X         * unless it's a note.
    X         */
    X        err_rpt("illegal minute value (ignored)", NON_FATAL);
    X        return(1);
    X    }
    X    if ((appt->flags & A_NOTE) && version2 && appt->minute == 99)
    X        appt->flags |= MARKED;  /* don't show in mon/yr display */
    X    ++ptr;
    X    while (isspace(*ptr))
    X        ++ptr;
    X    appt->arrows = (*ptr - '0') * 10;
    X    appt->arrows += *++ptr - '0';
    X    /* sanity check */
    X    if (appt->arrows < 0 || appt->arrows > N_TSLOTS) {
    X        err_rpt("illegal arrow value (ignored)", NON_FATAL);
    X        return(1);
    X    }
    X    ++ptr;
    X    while (isspace(*ptr))
    X        ++ptr;
    X    /* lookahead and repeat entries are free format, i.e. they */
    X    /* can occur in either order */
    X    if (*ptr == '[') {
    X        appt->flags |= REPEAT;
    X        if (appt->flags & EVERY_SOMEDAY) {
    X            if ((appt->repeat = do_wk_repeat(&ptr)) < 0)
    X                return(1);
    X        } else {
    X            if ((appt->repeat = do_repeat(&ptr)) < 0)
    X                return(1);
    X        }
    X        if (*ptr == '<') {
    X            appt->flags |= LOOKAHEAD;
    X            if ((appt->lookahead = do_lookahead(&ptr)) < 0)
    X                return(1);
    X        }
    X        if (*ptr == '#') {
    X            appt->flags |= DELETED;
    X            ++ptr;
    X            while (isspace(*ptr))
    X                ++ptr;
    X        }
    X    } else if (*ptr == '<') {
    X        appt->flags |= LOOKAHEAD;
    X        if ((appt->lookahead = do_lookahead(&ptr)) < 0)
    X            return(1);
    X        if (*ptr == '[') {
    X            appt->flags |= REPEAT;
    X            if (appt->flags & EVERY_SOMEDAY) {
    X                if ((appt->repeat = do_wk_repeat(&ptr)) < 0)
    X                    return(1);
    X            } else {
    X                if ((appt->repeat = do_repeat(&ptr)) < 0)
    X                    return(1);
    X            }
    X        }
    X        if (*ptr == '#') {
    X            appt->flags |= DELETED;
    X            ++ptr;
    X            while (isspace(*ptr))
    X                ++ptr;
    X        }
    X    } else if (*ptr == '#') {
    X        appt->flags |= DELETED;
    X        ++ptr;
    X        while (isspace(*ptr))
    X            ++ptr;
    X    }
    X    str = strbuf;
    X    while (*ptr && *ptr != '\n')
    X        *str++ = *ptr++;
    X    *str = '\0';
    X    strcpy(appt->str, strbuf);
    X
    X    return(0);
    X}
    X
    X/* parse normal repeated entry field */
    Xdo_repeat(ptr)
    Xchar **ptr;
    X{
    X    int repeat = 0;
    X
    X    while (isdigit(*++*ptr))
    X        repeat = repeat * 10 + (int)(**ptr - '0');
    X    if (**ptr != ']') {
    X        err_rpt("bad entry (ignored)", NON_FATAL);
    X        return(-1);
    X    }
    X    /* sanity check */
    X    if (repeat < 0) {
    X        err_rpt("illegal repeat interval (ignored)", NON_FATAL);
    X        return(-1);
    X    }
    X    ++*ptr;
    X    while (isspace(**ptr))
    X        ++*ptr;
    X    return(repeat);
    X}
    X
    X/* parse weekly repeated entry field */
    Xdo_wk_repeat(ptr)
    Xchar **ptr;
    X{
    X    int repeat = 0;
    X
    X    while (*++*ptr != ']') {
    X        if (**ptr == ',')
    X            continue;    /* get next week */
    X        if (isdigit(**ptr)) {
    X            repeat |= 0x1<<(**ptr - '1');
    X        } else if (**ptr == 'L' || **ptr == 'l') {
    X            /* last week in month */
    X            repeat |= LAST_WEEK;
    X        } else {
    X            /* format error */
    X            err_rpt("illegal repeat specification (ignored)", NON_FATAL);
    X            return(-1);
    X        }
    X    }
    X    /* sanity check */
    X    if ((unsigned int)repeat > WEEK_LIMIT) {
    X        err_rpt("illegal weekly repeat (ignored)", NON_FATAL);
    X        return(-1);
    X    }
    X    ++*ptr;
    X    while (isspace(**ptr))
    X        ++*ptr;
    X
    X    return(repeat);
    X}
    X
    X/* parse lookahead entry field */
    Xdo_lookahead(ptr)
    Xchar **ptr;
    X{
    X    int lookahead = 0;
    X
    X    while (isdigit(*++*ptr))
    X        lookahead = lookahead * 10 + (int)(**ptr - '0');
    X    if (**ptr != '>') {
    X        err_rpt("bad entry (ignored)", NON_FATAL);
    X        return(-1);
    X    }
    X    /* sanity check */
    X    if (lookahead < 0) {
    X        err_rpt("illegal lookahead interval (ignored)", NON_FATAL);
    X        return(-1);
    X    }
    X    ++*ptr;
    X    while (isspace(**ptr))
    X        ++*ptr;
    X    return(lookahead);
    X}
    X
    X/*
    X * put entry into appointments file
    X */
    Xput_aentry(apts_file, appt)
    XFILE *apts_file;
    Xstruct appt_entry *appt;
    X{
    X    char *to_str();
    X
    X    if (read_only)
    X        return(0);
    X
    X    if (appt->flags & READONLY)
    X        /* don't copy include file entries */
    X        /* (the include directive is copied as a comment) */
    X        return(0);
    X    if (appt->flags & A_COMMENT) {
    X        fputs(inbuf, apts_file);
    X        return(ferror(apts_file));
    X    }
    X    if (appt->flags & ALL_YEARS)
    X        fputs("** ", apts_file);
    X    else if (appt->year > 99)
    X        fprintf(apts_file, "%03d ", appt->year);
    X    else
    X        fprintf(apts_file, "%02d ", appt->year);
    X    if (appt->flags & ALL_MONTHS)
    X        fputs("** ", apts_file);
    X    else
    X        fprintf(apts_file, "%02d ", one_based ? appt->month+1 : appt->month);
    X    if (appt->flags & ALL_DAYS)
    X        fputs("** ", apts_file);
    X    else if (appt->flags & EVERY_SOMEDAY) {
    X        switch (appt->flags & EVERY_SOMEDAY) {
    X            case EVERY_SUN:
    X                fputs("Su ", apts_file);
    X                break;
    X            case EVERY_MON:
    X                fputs("Mo ", apts_file);
    X                break;
    X            case EVERY_TUE:
    X                fputs("Tu ", apts_file);
    X                break;
    X            case EVERY_WED:
    X                fputs("We ", apts_file);
    X                break;
    X            case EVERY_THU:
    X                fputs("Th ", apts_file);
    X                break;
    X            case EVERY_FRI:
    X                fputs("Fr ", apts_file);
    X                break;
    X            case EVERY_SAT:
    X                fputs("Sa ", apts_file);
    X                break;
    X        }
    X    } else
    X        fprintf(apts_file, "%02d ", one_based ? appt->day : appt->day-1);
    X    if (appt->flags & A_NOTE) {
    X        appt->hour = 99;
    X        appt->minute = 0;    /* assume unmarked note */
    X    }
    X    if ((appt->flags & MARKED_NOTE) == MARKED_NOTE)
    X        appt->minute = 99;
    X    if (!(appt->flags & (ALL_DAYS|DELETED)) && appt->flags & REPEAT) {
    X        if (appt->flags & EVERY_SOMEDAY)
    X            fprintf(apts_file, "%02d %02d %02d %s ", appt->hour, appt->minute, appt->arrows, to_str(appt->repeat));
    X        else
    X            fprintf(apts_file, "%02d %02d %02d [%d] ", appt->hour, appt->minute, appt->arrows, appt->repeat);
    X    } else
    X        fprintf(apts_file, "%02d %02d %02d ", appt->hour, appt->minute, appt->arrows);
    X
    X    if (appt->flags & LOOKAHEAD)
    X        fprintf(apts_file, "<%d> ", appt->lookahead);
    X    if (appt->flags & DELETED)
    X        fprintf(apts_file, "# %s\n", appt->str);
    X    else
    X        fprintf(apts_file, "%s\n", appt->str);
    X
    X    /* check for failure (e.g. file system full) */
    X    return(ferror(apts_file));
    X}
    X
    Xchar rptstr[10];
    X
    X/* convert repeat bit map to printable string */
    Xchar *
    Xto_str(repeat)
    Xint repeat;
    X{
    X    int i, j = 0;
    X
    X    if (repeat == ALL_WEEKS)
    X        /* if it's every week, then don't write [] spec */
    X        rptstr[0] = '\0';
    X    else {
    X        rptstr[j++] = '[';
    X        for (i=0; i<5; i++) {
    X            if (repeat & (0x1<<i)) {
    X                rptstr[j++] = i+1 + '0';
    X                rptstr[j++] = ',';
    X            }
    X        }
    X        if (repeat & LAST_WEEK) {
    X            rptstr[j++] = 'L';
    X            rptstr[j++] = ',';
    X        }
    X        rptstr[j] = '\0';
    X        rptstr[--j] = ']';
    X    }
    X    return (rptstr);
    X}
    X
    X/*
    X * Print today's appointments to stdout or mail (useful if we only have an ASCII
    X * terminal connected to our Sun). Invoked by the "-p", "-P" or "-m" options.
    X */
    Xprint_apts(level)
    Xint level;
    X{
    X    int i;
    X    FILE *output, *popen();
    X    char cmd[80], *name, *cuserid(), *format_appt();
    X    struct appt_entry tmp_apt, *sptr;
    X
    X    fix_current_day();
    X    get_day_appts();
    X    if (level == 2) {
    X        if (mailto != NULL) {
    X            name = mailto;
    X        } else if ((name = cuserid(NULL)) == NULL) {
    X            err_rpt("nobody to mail to", FATAL);
    X        }
    X        sprintf(cmd, "mail -s \"Appointments for today\" %s", name);
    X        if ((output = popen(cmd, "w")) == NULL)
    X            err_rpt("Couldn't pipe to 'mail'", FATAL);
    X    } else {
    X        output = stdout;
    X    }
    X
    X    fprintf(output,"\n\t*** Appointments for %s %s %d, 19%02d ***\n\n",
    X        daynames[current.tm_wday], monthnames[current.tm_mon],
    X        current.tm_mday, current.tm_year);
    X
    X    for (i=0; i<N_SLOTS; i++) {
    X        if (i == n_tslots)
    X            /* start of notes section */
    X            fprintf(output,"\n\t\t     ===== Notes =====\n");
    X        if (slots[i].first != NULL && slots[i].count > 0) {
    X            /* at least one appt here */
    X            slots[i].cur_appt = slots[i].first;
    X            do {
    X                if (level == 3 && ((slots[i].cur_appt->flags & MARKED_NOTE) == MARKED_NOTE))
    X                    continue;
    X                if (chk_deleted(i))
    X                    continue;
    X                tmp_apt = *slots[i].cur_appt;
    X                tmp_apt.year = current.tm_year;
    X                tmp_apt.month = current.tm_mon;
    X                tmp_apt.day = current.tm_mday;
    X                fprintf(output, "%s\n", format_appt(&tmp_apt));
    X            } while ((slots[i].cur_appt = slots[i].cur_appt->next) != NULL);
    X        }
    X    }
    X    if (findex) {
    X        /* print out future appointments */
    X        fprintf(output, "\n\t\t===== Future Reminders =====\n");
    X        for (i=0; i<findex; i++)
    X            fprintf(output, "%s\n", format_appt(&future[i]));
    X    }
    X    fflush(output);
    X    if (level == 2)
    X        pclose(output);
    X}
    X
    X/*
    X * Convert from version 1 appts files to version 2 file format.
    X */
    Xver1to2()
    X{
    X    FILE *oappts, *nappts, *fp;
    X    struct appt_entry appt;
    X    int err_flag, save_base;
    X    char save_file[128];
    X    struct stat stbuf;
    X
    X    /*
    X     * The main difference is that the ver 2 files are one-based, i.e
    X     * days and months start with 1, rather than 0. Another difference
    X     * is that a hour entry of 99 is used to flag a memo entry, rather
    X     * than 00. This allows for 24-hour appointments.
    X     * Version 2 appts files are marked with a special header line
    X     * defined by the HEADER string (in ct.h).  Version 2 files
    X     * also support a "lookahead" reminder service to remind one
    X     * in advance of a future appointment.
    X     * If "save_old" is set, then any appointments for years prior
    X     * to this one are save in a special file of the form
    X     * ".appointments.YY", where YY is the year.
    X     */
    X
    X    if (read_only != 0) {
    X        err_rpt("appts file is read-only, no conversion done", NON_FATAL);
    X        return;
    X    }
    X
    X     /* open files, etc */
    X    if ((oappts = fopen(apts_pathname, "r")) == NULL) {
    X        err_rpt("can't open appts file for reading", FATAL);
    X        /* NOT REACHED */
    X     }
    X    if ((nappts = fopen(tmpapts_pathname, "w")) == NULL) {
    X        err_rpt("can't open temp file for writing", NON_FATAL);
    X        return;
    X     }
    X     /* write new header line */
    X     fputs(HEADER, nappts);
    X
    X     /* copy existing entries to the new file */
    X     save_base = one_based;
    X     while ((err_flag = get_aentry(oappts, &appt)) != EOF) {
    X        if (err_flag)
    X            continue;    /* ignore badly formatted input */
    X        if (appt.hour == 0)
    X            appt.flags |= A_NOTE;
    X        one_based = 1;        /* force new format output */
    X        if (save_old && !(appt.flags & ALL_YEARS) && (appt.year < today.tm_year)
    X           && !((appt.flags & REPEAT) && !(appt.flags & EVERY_SOMEDAY))
    X           && !(appt.flags & A_COMMENT)) {
    X            /* prepend directory info */
    X            sprintf(save_file, "%s/.appointments.%02d",
    X                apts_dir, appt.year);
    X            if (stat(save_file, &stbuf) && errno == ENOENT) {
    X                /* new file*/
    X                if ((fp = fopen(save_file, "w")) == NULL)
    X                    err_rpt("can't open save file, bailing out", FATAL);
    X                fputs(HEADER, fp);
    X                fclose(fp);
    X            }
    X            if ((fp = fopen(save_file, "a+")) == NULL)
    X                err_rpt("can't open save file, bailing out", FATAL);
    X            else {
    X                if (put_aentry(fp, &appt))
    X                    err_rpt("write to save appt file failed, bailing out", FATAL);
    X                fclose(fp);
    X            }
    X        } else {
    X            if (put_aentry(nappts, &appt))
    X                err_rpt("write to new appt file failed, bailing out", FATAL);
    X        }
    X        one_based = save_base;    /* (maybe) force old format input */
    X    }
    X    fclose(oappts);
    X    fclose(nappts);
    X    xrename(tmpapts_pathname, apts_pathname);
    X    one_based = 1;
    X    version2 = 1;
    X}
    X
    X/*
    X * Scan appointments file for outdated appointments and save them to a
    X * special file of the form ".appointments.YY", where YY is the year
    X * of that appointment.
    X */
    Xcreate_old_files()
    X{
    X    FILE *oappts, *nappts, *fp;
    X    struct appt_entry appt;
    X    int err_flag;
    X    char save_file[128];
    X    struct stat stbuf;
    X
    X    if (read_only != 0) {
    X        err_rpt("appts file is read-only, no conversion done", NON_FATAL);
    X        return;
    X    }
    X
    X     /* open files, etc */
    X    if ((oappts = fopen(apts_pathname, "r")) == NULL) {
    X        err_rpt("can't open appts file for reading", FATAL);
    X        /* NOT REACHED */
    X     }
    X    if ((nappts = fopen(tmpapts_pathname, "w")) == NULL) {
    X        err_rpt("can't open temp file for writing", NON_FATAL);
    X        return;
    X     }
    X
    X     /* copy existing entries to the tmp file, checking dates */
    X     while ((err_flag = get_aentry(oappts, &appt)) != EOF) {
    X        if (err_flag)
    X            continue;    /* ignore badly formatted input */
    X        if (!(appt.flags & A_COMMENT)
    X           && !(appt.flags & ALL_YEARS) && (appt.year < today.tm_year)
    X           && !((appt.flags & REPEAT) && !(appt.flags & EVERY_SOMEDAY))) {
    X            /* prepend directory info */
    X            sprintf(save_file, "%s/.appointments.%02d",
    X                apts_dir, appt.year);
    X            if (stat(save_file, &stbuf) && errno == ENOENT) {
    X                /* new file*/
    X                if ((fp = fopen(save_file, "w")) == NULL)
    X                    err_rpt("can't open save file, bailing out", FATAL);
    X                fputs(HEADER, fp);
    X                fclose(fp);
    X            }
    X            if ((fp = fopen(save_file, "a+")) == NULL)
    X                err_rpt("can't open save file, bailing out", FATAL);
    X            else {
    X                if (put_aentry(fp, &appt))
    X                    err_rpt("write to save appt file failed, bailing out", FATAL);
    X                fclose(fp);
    X            }
    X        } else {
    X            if (put_aentry(nappts, &appt))
    X                err_rpt("write to new appt file failed, bailing out", FATAL);
    X        }
    X    }
    X    fclose(oappts);
    X    fclose(nappts);
    X    xrename(tmpapts_pathname, apts_pathname);
    X}
    X
    X/*
    X * convert appt entry to ASCII string for display with date, time and msg
    X */
    Xchar *
    Xformat_appt(appt)
    Xstruct appt_entry *appt;
    X{
    X    int e_hour, e_minutes, duration;
    X    struct tm Save;
    X
    X    if (appt->arrows > 0) {
    X        duration = appt->arrows + 1;
    X        e_hour = appt->hour + duration/2;
    X        e_minutes = appt->minute + ((duration%2) * 30);
    X    } else {
    X        e_hour = appt->hour;
    X        e_minutes = appt->minute + 30;
    X    }
    X    if (e_minutes == 60) {
    X        e_minutes = 0;
    X        ++e_hour;
    X    }
    X    /* get day of week */
    X    Save = current;
    X    current.tm_year = appt->year;
    X    current.tm_mon = appt->month;
    X    current.tm_mday = appt->day;
    X    fix_current_day();
    X
    X    if (appt->flags & A_NOTE) {
    X        /* note */
    X        if (appt->flags & ALL_YEARS)
    X            sprintf(strbuf,"%3.3s %2d/%02d    --  %s",
    X                daynames[current.tm_wday], appt->month+1,
    X                appt->day, appt->str);
    X        else if (appt->year > 99)
    X            sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
    X                daynames[current.tm_wday], appt->month+1,
    X                appt->day, appt->year-100, appt->str);
    X        else
    X            sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
    X                daynames[current.tm_wday], appt->month+1,
    X                appt->day, appt->year, appt->str);
    X    } else
    X        /* standard appointment */
    X        sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d to %2d:%02d   %s",
    X            daynames[current.tm_wday], appt->month+1,
    X            appt->day, appt->year, appt->hour, appt->minute,
    X            e_hour, e_minutes, appt->str);
    X
    X    current = Save;
    X    return(strbuf);
    X}
    X
    X/*
    X * convert appt entry to ASCII string for display with time and msg
    X */
    Xchar *
    Xformat_appt_nd(appt)
    Xstruct appt_entry *appt;
    X{
    X    int e_hour, e_minutes, duration;
    X    struct tm Save;
    X
    X    if (appt->arrows > 0) {
    X        duration = appt->arrows + 1;
    X        e_hour = appt->hour + duration/2;
    X        e_minutes = appt->minute + ((duration%2) * 30);
    X    } else {
    X        e_hour = appt->hour;
    X        e_minutes = appt->minute + 30;
    X    }
    X    if (e_minutes == 60) {
    X        e_minutes = 0;
    X        ++e_hour;
    X    }
    X
    X    if (appt->flags & A_NOTE) {
    X        /* note */
    X        sprintf(strbuf,"%s", appt->str);
    X    } else
    X        /* standard appointment */
    X        sprintf(strbuf,"%2d:%02d to %2d:%02d   %s",
    X            appt->hour, appt->minute, e_hour, e_minutes, appt->str);
    X
    X    return(strbuf);
    X}
    X
    X/*
    X * parse the date on the given tring and reset the "current"
    X * date to reflect that date. The date may take the form of a
    X * day name (e.g. Tu, Tue, Tuesday) or a date in m/d/y format
    X * where the month and/or year may be missing (e.g. 27 = 27th
    X * of this month, 8/27 = August 27 of this year, 8/27/89 =
    X * August 27 of 1989. If 'cmdline' is true, then the string
    X * came from the command line '-d' option.
    X */
    Xint
    Xparse_date(str, cmdline)
    Xchar *str;
    Xint cmdline;
    X{
    X    char c[4];
    X    int i, dow = -1, m = -1, d = -1, y = -1;
    X
    X    if (isdigit(*str)) {
    X        /* must be a m/d/y date */
    X        /* assume it's a month first */
    X        m = *str++ - '0';
    X        if (isdigit(*str))
    X            m = m*10 + *str++ - '0';
    X        if (!*str) {
    X            /* no more chars => day only */
    X            d = m;
    X            m = -1;
    X        } else if (*str++ != '/') {
    X            if (cmdline)
    X                err_rpt("badly formed date for -d option (ignored)", NON_FATAL);
    X            else
    X                err_rpt("badly formed date - please reenter", NON_FATAL);
    X            return(1);
    X        } else {
    X            d = *str++ - '0';
    X            if (isdigit(*str))
    X                d = d*10 + *str++ - '0';
    X            if (*str++ == '/') {
    X                /* year also specified */
    X                y = *str++ - '0';
    X                if (isdigit(*str)) {
    X                    y = y*10 + *str++ - '0';
    X                    if (*str && isdigit(*str))
    X                        y = y*10 + *str - '0';
    X                }
    X            }
    X        }
    X        if (y > 0)
    X            current.tm_year = y;
    X        if (m > 0)
    X            current.tm_mon = m - 1;
    X        if (d > 0)
    X            current.tm_mday = d;
    X        fix_current_day();
    X    } else {
    X        /* day of week */
    X        /* check for day names */
    X        c[0] = islower(*str) ? toupper(*str) : *str;
    X        ++str;
    X        c[1] = islower(*str) ? toupper(*str) : *str;
    X        c[2] = '\0';
    X        for (i=0; i<7; i++) {
    X            if (!strcmp(c, dayname[i])) {
    X                dow = i;
    X                break;
    X            }
    X        }
    X        if (dow >= 0) {
    X            /* match found */
    X            current.tm_mday += dow - current.tm_wday;
    X            fix_current_day();
    X        } else {
    X            if (cmdline)
    X                err_rpt("badly formed date for -d option (ignored)", NON_FATAL);
    X            else
    X                err_rpt("badly formed date - please reenter", NON_FATAL);
    X            return(1);
    X        }
    X    }
    X    return(0);
    X}
    X
    X#ifndef NO_PRINTER
    X/*
    X * Print to Postscript compatable printer.  If we are displaying
    X * the day or week page, then create a raster file of the canvas and
    X * feed it to a raster->ps filter (sun2ps).  If on a month page, then
    X * print a pretty month calendar with appts written in (as best
    X * can be).
    X */
    Xprint_calendar(file_type)
    Xint file_type;
    X{
    X    Pixrect *save_pr;
    X    char prntcmd[64];
    X    int type = RT_STANDARD;
    X    int copy_flag = TRUE;
    X    Rect *rect;
    X    struct pr_prpos where;
    X    char buf[128], *cuserid();
    X    FILE *fp, *pfp;
    X
    X    lock_cursors();
    X    working(TRUE);
    X    sprintf(buf, "Appointments file \"%s\" printed for %s on %s", apts_pathname, cuserid(NULL), todays_date);
    X    if (mainsw_state != DISPLAYING_MONTH) {
    X        if ((fp = fopen(rasfile, "w")) != NULL) {
    X            rect = (Rect *) window_get(canvas, WIN_RECT);
    X            save_pr = mem_create(rect->r_width, rect->r_height+3*sfont->pf_defaultsize.y, 1);
    X            pr_rop(save_pr,0,0,rect->r_width-3,rect->r_height,PIX_SRC,main_pixwin->pw_prretained,0,0);
    X            where.pr = save_pr;
    X            where.pos.x = 6 * font->pf_defaultsize.x;
    X            where.pos.y = rect->r_height + 2*sfont->pf_defaultsize.y;
    X            pf_text(where, PIX_SRC, sfont, buf);
    X            pr_dump(save_pr, fp, NULL, type, copy_flag);
    X            fclose(fp);
    X            if (file_type == PR_POSTSCRIPT) {
    X                if ((pfp = fopen(psfile, "w")) != NULL) {
    X                    fp = fopen(rasfile, "r");
    X                    /* ras2ps closes the files that
    X                     * we opened here.
    X                     */
    X                    ras2ps(fp, pfp);
    X                    sprintf(prntcmd, "%s %s", printer, psfile);
    X                    system(prntcmd);
    X                    unlink(psfile);
    X                } else
    X                    err_rpt("can't open tmp ps file", NON_FATAL);
    X            } else {
    X                sprintf(prntcmd, "%s %s", printer, rasfile);
    X                system(prntcmd);
    X            }
    X            pr_destroy(save_pr);
    X            unlink(rasfile);
    X        } else
    X            err_rpt("can't open tmp raster file", NON_FATAL);
    X    } else if (mainsw_state == DISPLAYING_MONTH) {
    X        if (file_type != PR_POSTSCRIPT) {
    X            err_rpt("only PostScript output available for month printout", NON_FATAL);
    X        } else {
    X            if ((pfp = fopen(psfile, "w")) != NULL) {
    X                print_month(pfp);
    X                fclose(pfp);
    X                sprintf(prntcmd, "%s %s", printer, psfile);
    X                system(prntcmd);
    X                unlink(psfile);
    X            } else
    X                err_rpt("can't open tmp ps file", NON_FATAL);
    X        }
    X    }
    X    working(FALSE);
    X    unlock_cursors();
    X}
    X#endif    /* NO_PRINTER */
    X
    X/* set error logging flag */
    Xerr2console(state)
    Xint state;
    X{
    X    /*
    X     * if TRUE, forces error messages to the console, even
    X     * if the base frame is running
    X     */
    X    log_to_console = state;
    X}
    X
    X/*
    X * Error reporting. Try first to put message in a popup frame, then
    X * the console, then stderr as a last resort.
    X */
    Xerr_rpt(errstr, fatal_flag)
    Xchar *errstr;
    Xint fatal_flag;
    X{
    X    FILE    *f;
    X    int    closed;
    X
    X    closed = (int) window_get(frame, FRAME_CLOSED);
    X    if (frame && !log_to_console && !closed) {
    X        /* base frame exists */
    X        create_prompt_frame(errstr, FALSE);
    X        (void) window_loop(prompt_frame);
    X        window_set(prompt_frame, WIN_SHOW, FALSE, 0);
    X    } else if ((f=fopen("/dev/console", "w")) != NULL) {
    X        fprintf(f, "%s: %s\n", progname, errstr);
    X        fclose(f);
    X    } else
    X        fprintf(stderr, "%s: %s\n", progname, errstr);
    X    if (fatal_flag)
    X        exit(1);
    X}
    X
    X/* Clean-up */
    Xcleanup()
    X{
    X    if (day_is_open)
    X        close_day();
    X
    X    /* create outdated include files (if necessary) */
    X    if (save_old)
    X        create_old_files();
    X
    X    /* delete tmp file */
    X    if (access(tmpapts_pathname, R_OK) == 0 && unlink(tmpapts_pathname) < 0)
    X        perror(tmpapts_pathname);
    X}
    X
    Xchar sysbuf[512];
    X
    X/* Rename files, copying if necessary */
    Xxrename(from, to)
    Xchar *from, *to;
    X{
    X    if (rename(from, to) == -1) {
    X        /* rename sys call fialed, try doing a copy */
    X        sprintf(sysbuf, "cp %s %s", from, to);
    X        if (system(sysbuf) != 0)
    X            err_rpt("couldn't rename/copy tmp file", NON_FATAL);
    X    }
    X}
SHAR_EOF
if test 31671 -ne "`wc -c < 'utils.c'`"
then
    echo shar: error transmitting "'utils.c'" '(should have been 31671 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'version.c'" '(946 characters)'
if test -f 'version.c'
then
    echo shar: will not over-write existing file "'version.c'"
else
sed 's/^    X//' << \SHAR_EOF > 'version.c'
    X/*
    X * $Header: version.c,v 2.3 89/05/16 16:31:58 billr Exp $
    X */
    X/*
    X * version.c - current version of calentool program
    X *
    X * calentool - a year/month/week/day-at-a-glance calendar for Sun workstations.
    X *
    X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin![e-mail]>
    X *
    X * Original source Copyright (C) 1987, Sun Microsystems, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify this program in source
    X * or binary form as long as it is not sold for profit and this copyright
    X * notice remains intact.
    X *
    X *
    X * Changes/additions by: Bill Randle, Tektronix, Inc. <[e-mail]>
    X *
    X * Changes and additions Copyright (C) 1988, 1989 Tektronix, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify the modifications in source
    X * or binary form as long as they are not sold for profit and this copyright
    X * notice remains intact.
    X */
    X
    Xchar version[] = "Calendar Tool V2.1p2";
SHAR_EOF
if test 946 -ne "`wc -c < 'version.c'`"
then
    echo shar: error transmitting "'version.c'" '(should have been 946 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'week.cursor'" '(284 characters)'
if test -f 'week.cursor'
then
    echo shar: will not over-write existing file "'week.cursor'"
else
sed 's/^    X//' << \SHAR_EOF > 'week.cursor'
    X/* $Header: week.cursor,v 2.1 89/05/09 14:31:09 billr Exp $ */
    X/* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
    X */
    X        0x4004, 0x2008, 0x1FF0, 0x1010, 0x17D0, 0x1550, 0x1550, 0x1550,
    X        0x1550, 0x1550, 0x1550, 0x17D0, 0x1010, 0x1FF0, 0x2008, 0x4004
SHAR_EOF
if test 284 -ne "`wc -c < 'week.cursor'`"
then
    echo shar: error transmitting "'week.cursor'" '(should have been 284 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'wevent.c'" '(3699 characters)'
if test -f 'wevent.c'
then
    echo shar: will not over-write existing file "'wevent.c'"
else
sed 's/^    X//' << \SHAR_EOF > 'wevent.c'
    X/*
    X * $Header: wevent.c,v 2.1 89/05/09 14:19:57 billr Exp $
    X */
    X/*
    X * wevent.c
    X *
    X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin![e-mail]>
    X *
    X * Original source Copyright (C) 1987, Sun Microsystems, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify this program in source
    X * or binary form as long as it is not sold for profit and this copyright
    X * notice remains intact.
    X *
    X *
    X * Changes/additions by: Bill Randle, Tektronix, Inc. <[e-mail]>
    X *
    X * Changes and additions Copyright (C) 1988, 1989 Tektronix, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify the modifications in source
    X * or binary form as long as they are not sold for profit and this copyright
    X * notice remains intact.
    X */
    X/********************************************************
    X *                            *
    X *      Week event routines for main subwindow.        *
    X *                            *
    X ********************************************************/
    X
    X
    X#include <stdio.h>
    X#include <suntool/sunview.h>
    X#include <suntool/canvas.h>
    X#include <suntool/panel.h>
    X#include "ct.h"
    X#include "event.h"
    X
    Xextern Frame prompt_frame;
    X
    Xweek_inputevent(canvas, event)
    XCanvas canvas;
    XEvent *event;
    X{
    X    int i = -1;
    X    int x, y;
    X    static int day_chosen_from_week;
    X
    X    /* translate coordinates to pixwin space */
    X    event = canvas_window_event(canvas, event);
    X        if (event_id(event) != MS_LEFT)        /* Ignore kbd events. */
    X                return;
    X
    X        if (event_is_down(event)) {               /* Button down. */
    X        day_chosen_from_week = -1;
    X                for (i=0; i<nr_weekdays; i++) {
    X            x = event_x(event);
    X            y = event_y(event);
    X                        if (x >= week_boxes[i].wday_pos.left && x <= week_boxes[i].wday_pos.right &&
    X                            y >= week_boxes[i].wday_pos.top && y <= week_boxes[i].wday_pos.bottom) {
    X                day_chosen_from_week = i;
    X                pw_write(main_pixwin, week_boxes[i].wday_pos.left+1,
    X                                  week_boxes[i].wday_pos.top+1, weekslot_width-2,
    X                                  (weekslot_height)*N_SLOTS-2, PIX_NOT(PIX_DST), NULL,0,0);
    X                return;
    X            }
    X            /* is cursor inside a "more" button ? */
    X            if (x>=week_boxes[i].moreb_pos.left && x<=week_boxes[i].moreb_pos.right &&
    X                y>=week_boxes[i].moreb_pos.top && y<=week_boxes[i].moreb_pos.bottom) {
    X                if (week_boxes[i].more) {
    X                    /* "more" button is active */
    X                    day_chosen_from_week = i+10;
    X                    return;
    X                }
    X            }
    X        }
    X        return;            /* Mouse wasn't in any square. */
    X    } else {                        /* Button up. */
    X        if (day_chosen_from_week == -1)
    X            return;
    X        if (day_chosen_from_week >= 10) {
    X            /* more button selected */
    X            /* print info message */
    X            do_more_msg(day_chosen_from_week-10);
    X            return;
    X        }
    X        current.tm_mday -= current.tm_wday;
    X        current.tm_mday += day_chosen_from_week;
    X        fix_current_day();
    X        if (nr_weekdays == 5) {
    X            current.tm_mday++;
    X            fix_current_day();
    X        }
    X        mainsw_state = DISPLAYING_DAY;
    X        window_set(canvas, WIN_CURSOR, day_cursor, 0);
    X        draw_day();
    X    }
    X}
    X
    X/* display more popup message */
    Xdo_more_msg(i)
    Xint i;
    X{
    X    int width, height, left, bottom;
    X
    X    /* get x,y position of canvas window on the screen so we
    X     * can center this one in it.
    X     */
    X    create_prompt_frame("Select this day to view additional appointments.", FALSE);
    X    width = (int) window_get(prompt_frame, WIN_WIDTH);
    X    height = (int) window_get(prompt_frame, WIN_HEIGHT);
    X    left = (week_boxes[i].wday_pos.right + week_boxes[i].wday_pos.left - width) / 2;
    X    bottom = (week_boxes[i].wday_pos.top + week_boxes[i].wday_pos.bottom - height) / 2;
    X    window_set(prompt_frame, WIN_X, left, WIN_Y, bottom, 0);
    X    (void) window_loop(prompt_frame);
    X    window_set(prompt_frame, WIN_SHOW, FALSE, 0);
    X}
SHAR_EOF
if test 3699 -ne "`wc -c < 'wevent.c'`"
then
    echo shar: error transmitting "'wevent.c'" '(should have been 3699 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'wpaint.c'" '(7846 characters)'
if test -f 'wpaint.c'
then
    echo shar: will not over-write existing file "'wpaint.c'"
else
sed 's/^    X//' << \SHAR_EOF > 'wpaint.c'
    X/*
    X * $Header: wpaint.c,v 2.1 89/05/09 14:20:03 billr Exp $
    X */
    X/*
    X * wpaint.c
    X *
    X * Author: Philip Heller, Sun Microsystems. Inc. <terrapin![e-mail]>
    X *
    X * Original source Copyright (C) 1987, Sun Microsystems, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify this program in source
    X * or binary form as long as it is not sold for profit and this copyright
    X * notice remains intact.
    X *
    X *
    X * Changes/additions by: Bill Randle, Tektronix, Inc. <[e-mail]>
    X *
    X * Changes and additions Copyright (C) 1988, 1989 Tektronix, Inc.
    X *    All Rights Reserved
    X * Permission is hereby granted to use and modify the modifications in source
    X * or binary form as long as they are not sold for profit and this copyright
    X * notice remains intact.
    X */
    X/***************************************************
    X *                           *
    X *    Artistic routines that draw in the main    *
    X * subwindow for the week display.           *
    X *                           *
    X ***************************************************/
    X
    X#include <suntool/sunview.h>
    X#include <suntool/canvas.h>
    X#include <ctype.h>
    X#include <stdio.h>
    X#include "ct.h"
    X#include "paint.h"
    X
    Xextern int week_message_size;
    X
    X/*
    X * Routine to draw "Week-at-a-Glance".
    X */
    X
    Xdraw_week()
    X{
    X    struct tm Save;
    X
    X    lock_cursors();
    X    /* destory future appts popup, if it exists */
    X    if (fframe) {
    X        window_destroy(fframe);
    X        fframe = 0;
    X    }
    X    fix_current_day();
    X    Save = current;
    X    current.tm_mday -= current.tm_wday; /* Sunday of this week */
    X    fix_current_day();
    X    if (nr_weekdays < 7) {
    X        current.tm_mday++;
    X        fix_current_day();
    X    }
    X    working(TRUE);
    X    get_week_appts();
    X    working(FALSE);
    X    pw_batch_on(main_pixwin);
    X    paint_week_outline();
    X    paint_week_trim();
    X    working(TRUE);
    X    draw_week_appts();
    X    pw_batch_off(main_pixwin);
    X    current = Save;
    X    get_day_appts();
    X    working(FALSE);
    X    unlock_cursors();
    X}
    X
    X
    X/* Paint the outline for "Week-at-a-Glance". */
    Xpaint_week_outline()
    X{
    X    Rect *rect;
    X        int x, y, i, j, colx;
    X
    X        rect = (Rect *) window_get(canvas, WIN_RECT);
    X        pw_writebackground(main_pixwin,0,0,rect->r_width,rect->r_height,PIX_CLR);
    X        startx = (rect->r_width - nr_weekdays*weekslot_width) / 2;
    X    starty = 10 + (rect->r_height - (N_SLOTS*(weekslot_height+1))) / 2;
    X
    X    First = current;
    X        for (i=0; i<nr_weekdays; i++) {
    X                x = startx + i*weekslot_width;
    X        y = starty;
    X                week_boxes[i].wday_pos.left = x;
    X                week_boxes[i].wday_pos.top = y;
    X                week_boxes[i].wday_pos.right = x + weekslot_width;
    X                week_boxes[i].wday_pos.bottom = starty + N_SLOTS*weekslot_height;
    X        week_boxes[i].moreb_pos.left = x + (weekslot_width - morebutton->pr_size.x) / 2;
    X        week_boxes[i].moreb_pos.top = week_boxes[i].wday_pos.bottom + font->pf_defaultsize.y + font->pf_defaultsize.y/2;
    X        week_boxes[i].moreb_pos.right = week_boxes[i].moreb_pos.left + morebutton->pr_size.x;
    X        week_boxes[i].moreb_pos.bottom = week_boxes[i].moreb_pos.top + morebutton->pr_size.y;
    X                for (j=0; j<N_SLOTS; j++) {
    X            if (ymd_compare(today, current) == 0)
    X                pw_write(main_pixwin,x,y,weekslot_width,
    X                  weekslot_height,PIX_SRC,weekslot_td_pr,0,0);
    X            else
    X                pw_write(main_pixwin,x,y,weekslot_width,
    X                  weekslot_height,PIX_SRC,weekslot_pr,0,0);
    X                        y += weekslot_height;
    X        }
    X        current.tm_mday++;
    X        fix_current_day();
    X        }
    X    pw_vector(main_pixwin,startx,starty,startx+nr_weekdays*weekslot_width,starty,PIX_SET,1);
    X        pw_vector(main_pixwin,startx,y-1,startx+nr_weekdays*weekslot_width,y-1,PIX_SET,1);
    X    current = First;
    X    sun_moon_buttons(FALSE);
    X    print_button(TRUE);
    X}
    X
    X
    Xpaint_week_trim()
    X{
    X    int i, j, x, y, month, day, rightx;
    X        char c[7];
    X
    X    First = current;
    X        c[3] = '\0';            /* Mon Tue Wed Thu Fri */
    X        for (i=0; i<nr_weekdays; i++) {
    X                x = startx + i*weekslot_width + (weekslot_width - 2*(font->pf_defaultsize.x+2))/2;
    X        sprintf(c, "%3.3s", daynames[First.tm_wday + i]);
    X                pw_text(main_pixwin, x, starty-5, PIX_SRC, font, c);
    X        }
    X
    X        y = starty + weekslot_height - 4;
    X        rightx = startx + nr_weekdays*weekslot_width + 10;
    X    for (i=0; i<N_SLOTS; i++) {
    X        if (i < n_tslots) {
    X            sprintf(c, "%2d:%s",
    X                (START_HOUR+(i/2))%12 == 0 ? 12 : (START_HOUR+(i/2))%12,
    X                i%2 == 0 ? "00" : "30");
    X        } else if (i == n_tslots) {
    X            sprintf(c, "Notes");
    X        } else {
    X            sprintf(c, "     ");
    X        }
    X                pw_text(main_pixwin, startx-6*font->pf_defaultsize.x, y, PIX_SRC, font, c);
    X                pw_text(main_pixwin, rightx, y, PIX_SRC, font, c);
    X                y += weekslot_height;
    X    }
    X
    X        x = startx + (weekslot_width - 7*(font->pf_defaultsize.x+2))/2 + font->pf_defaultsize.x+7;
    X
    X    sprintf(c, "%d", 1900 + current.tm_year);
    X    pw_text(main_pixwin, startx-2*font->pf_defaultsize.x, y+weekslot_height, PIX_SRC, font, c);
    X
    X    /* display week dates (month, day) */
    X        for (i=0; i<nr_weekdays; i++) {
    X        sprintf(c, "%3.3s %2d",
    X            monthnames[current.tm_mon], current.tm_mday);
    X        pw_text(main_pixwin, x, y, PIX_SRC, font, c);
    X                x += weekslot_width;
    X        current.tm_mday++;
    X        fix_current_day();
    X        }
    X    current = First;
    X    fix_current_day();
    X}
    X
    X
    Xget_week_appts()
    X{
    X    int i, j, save_read;
    X    struct tm Current;
    X
    X    save_read = read_only;
    X    read_only = 1;
    X    Current = current;
    X    for (i=0; i<nr_weekdays; i++) {
    X        get_day_appts();    /* fills in slots[] array */
    X        for (j=0; j<N_SLOTS; j++)
    X            week_boxes[i].weekslots[j] = slots[j];
    X        current.tm_mday++;
    X        fix_current_day();
    X    }
    X    read_only = save_read;
    X    current = Current;
    X    fix_current_day();
    X}
    X
    X/* draw in week appointments */
    Xdraw_week_appts()
    X{
    X    int index, slotno;
    X    struct appt_entry *aptr, *optr;
    X
    X    for (index=0; index<nr_weekdays; index++) {
    X        x_coord = week_boxes[index].wday_pos.left;
    X        for (slotno=0; slotno<N_SLOTS; slotno++) {
    X            y_coord = week_boxes[index].wday_pos.top + slotno*weekslot_height;
    X            if (week_boxes[index].weekslots[slotno].count > 0) {
    X                switch (week_boxes[index].weekslots[slotno].active) {
    X                    case ACTIVE:
    X                        write_week_str(index, slotno);
    X                        break;
    X                    case ARROW_SHAFT:
    X                        pw_write(main_pixwin, x_coord+1, y_coord+1,
    X                          weekslot_width-2, weekslot_height-2, PIX_SRC|PIX_DST,
    X                        weekarrowshaft_pr, 0, 0);
    X                        break;
    X                    case ARROW_HEAD:
    X                        pw_write(main_pixwin, x_coord+1, y_coord+1, weekslot_width-2,
    X                          weekslot_height-2, PIX_SRC|PIX_DST, weekarrowhead_pr, 0, 0);
    X                        break;
    X                    case INACTIVE:
    X                        break;
    X                }
    X            }
    X            /* free memory alloc'd for appts */
    X            if (week_boxes[index].weekslots[slotno].first)
    X                for (aptr=week_boxes[index].weekslots[slotno].first; aptr; ) {
    X                    optr = aptr;
    X                    aptr = aptr->next;
    X                    free(optr);
    X                }
    X        }
    X        wmore_check(index);
    X    }
    X}
    X
    Xwrite_week_str(day, bi)
    Xint day;
    Xint bi;
    X{
    X    char slot_str[MAX_STRLEN];
    X    char *ptr;
    X    int strl;
    X
    X    strl = strlen(week_boxes[day].weekslots[bi].cur_appt->str);
    X    if (strl <= week_message_size)
    X        strcpy(slot_str, week_boxes[day].weekslots[bi].cur_appt->str);
    X    else {
    X        /* show leading part */
    X
    X        strncpy(slot_str, week_boxes[day].weekslots[bi].cur_appt->str, week_message_size);
    X        slot_str[week_message_size+1] = '\0';
    X    }
    X    pw_write(main_pixwin, x_coord+1, y_coord+1, weekslot_width-2,
    X        weekslot_height-2, PIX_SET, NULL, 0, 0);
    X    pw_text(main_pixwin, x_coord+4, y_coord+font->pf_defaultsize.y, PIX_NOT(PIX_SRC),
    X        font, slot_str);
    X}
    X
    X/* display "more" button if necessary */
    Xwmore_check(day)
    Xint day;
    X{
    X    int i, more = 0;
    X    int x, y;
    X
    X    x = morebutton->pr_size.x;
    X    y = morebutton->pr_size.y;
    X    for (i=0; i<N_SLOTS; i++)
    X        if (week_boxes[day].weekslots[i].count > 1) {
    X            more = 1;
    X            break;
    X        }
    X    if (more) {
    X        week_boxes[day].more = 1;
    X        /* display more button to bottom of slot */
    X        pw_write(main_pixwin, week_boxes[day].moreb_pos.left,
    X            week_boxes[day].moreb_pos.top,
    X            x, y, PIX_SRC, morebutton, 0, 0);
    X    } else
    X        week_boxes[day].more = 0;
    X}
    X
SHAR_EOF
if test 7846 -ne "`wc -c < 'wpaint.c'`"
then
    echo shar: error transmitting "'wpaint.c'" '(should have been 7846 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'year.cursor'" '(256 characters)'
if test -f 'year.cursor'
then
    echo shar: will not over-write existing file "'year.cursor'"
else
sed 's/^    X//' << \SHAR_EOF > 'year.cursor'
    X/* $Header: year.cursor,v 2.1 89/05/09 14:31:12 billr Exp $ */
    X/* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
    X */
    X    0xFFFF,0xC003,0x8AA9,0x8001,0xFFFF,0xFFFF,0x9249,0xFFFF,
    X    0x9249,0xFFFF,0x9249,0xFFFF,0x9249,0xFFFF,0x9249,0xFFFF
SHAR_EOF
if test 256 -ne "`wc -c < 'year.cursor'`"
then
    echo shar: error transmitting "'year.cursor'" '(should have been 256 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'ypaint.c'" '(7772 characters)'
if test -f 'ypaint.c'
then
    echo shar: will not over-write existing file "'ypaint.c'"
else
sed 's/^    X//' << \SHAR_EOF > 'ypaint.c'
    X/*
    X * $Header: ypaint.c,v 2.1 89/05/09 14:20:15 billr Exp $
    X */
    X/*
    X * ypaint.c
    X *
    X * Author: Bill Randle, Tektronix, Inc. <[e-mail]>
    X *
    X * Copyright (C) 1988, 1989 Tektronix, Inc.  All Rights Reserved
    X *
    X * Permission is hereby granted to use and modify this code in source
    X * or binary form as long as it is not sold for profit and this copyright
    X * notice remains intact.
    X */
    X/***************************************************
    X *                           *
    X *    Artistic routines that draw in the main    *
    X * subwindow for the year display.           *
    X *                           *
    X ***************************************************/
    X
    X#include <suntool/sunview.h>
    X#include <suntool/canvas.h>
    X#include <ctype.h>
    X#include <stdio.h>
    X#include "ct.h"
    X#include "paint.h"
    X
    X/*
    X * draw calendar for a whole year.
    X */
    Xdraw_year()
    X{
    X    int monthnr, daynr, boxnr, i, j, k, thismonth;
    X    int row, col, x, y;
    X    int busy_today[366], startbox, nrdays, yrday, extra_days;
    X    char title[5], c[3], buf[100];
    X    Rect *rect;
    X    struct tm Save;
    X    struct appt_entry appt;
    X    int read_stat;
    X    FILE *apts;
    X
    X    lock_cursors();
    X    /* destory future appts popup, if it exists */
    X    if (fframe) {
    X        window_destroy(fframe);
    X        fframe = 0;
    X    }
    X    fix_current_day();
    X
    X    working(TRUE);
    X    pw_batch_on(main_pixwin);
    X    rect = (Rect *) window_get(canvas, WIN_RECT);
    X    /* Erase the window */
    X    pw_writebackground(main_pixwin,0,0,rect->r_width,rect->r_height,PIX_CLR);
    X    startx = (rect->r_width - 3*8*ybox_width)/2 + font->pf_defaultsize.x+1;
    X    starty = (rect->r_height - 4*7*ybox_height) / 2;
    X    sun_moon_buttons(FALSE);
    X    print_button(TRUE);
    X
    X    /* Which days have appointments? */
    X    for (i=0; i<dysize(current.tm_year + 1900); i++)
    X        busy_today[i] = 0;
    X    Save = current;
    X    current.tm_mon = JAN;
    X    current.tm_mday = 1;
    X    fix_current_day();
    X    First = current;
    X    current.tm_mon = DEC;
    X    current.tm_mday = monthlength(DEC);
    X    fix_current_day();
    X    Last = current;
    X    if ((apts = fopen(apts_pathname, "r")) == NULL)
    X        err_rpt("can't open appointments file", FATAL);
    X
    X    working(FALSE);
    X    while ((read_stat = get_aentry(apts, &appt)) != EOF) {
    X        if (read_stat)
    X            continue;    /* read error */
    X        if (appt.flags & A_COMMENT)
    X            continue;
    X        if ((appt.flags & MARKED_NOTE) == MARKED_NOTE)
    X            continue;
    X        current.tm_year = appt.year;
    X        current.tm_mon = appt.month;
    X        current.tm_mday = appt.day;
    X        if (appt.flags & ALL_YEARS)
    X            current.tm_year = First.tm_year;
    X        if (current.tm_year == First.tm_year) {
    X            if (appt.flags & ALL_MONTHS) {
    X                for (current.tm_mon = JAN;
    X                    current.tm_mon <= DEC;
    X                    current.tm_mon++) {
    X                    if (appt.flags & ALL_DAYS) {
    X                        for (current.tm_mday = 1; current.tm_mday <= monthlength(current.tm_mon); current.tm_mday++) {
    X                            fix_current_day();
    X                            busy_today[current.tm_yday]++;
    X                        }
    X                    } else if (appt.flags & EVERY_SOMEDAY) {
    X                        i = Pickday(appt.flags);
    X                        for (current.tm_mday = 1; current.tm_mday <= monthlength(current.tm_mon); current.tm_mday++) {
    X                            fix_current_day();
    X                            if (current.tm_wday == i)
    X                                if (chk_week(appt.repeat, current.tm_mday))
    X                                    busy_today[current.tm_yday]++;
    X                        }
    X                    } else {
    X                        fix_current_day();
    X                        busy_today[current.tm_yday]++;
    X                    }
    X                }
    X            } else if (appt.flags & REPEAT) {
    X                if (appt.flags & EVERY_SOMEDAY) {
    X                    i = Pickday(appt.flags);
    X                    current.tm_mday = 1;
    X                    fix_current_day();
    X                    while (current.tm_wday != i) {
    X                        current.tm_mday++;
    X                        current.tm_wday = (current.tm_wday + 1) % 7;
    X                    }
    X                    fix_current_day();
    X                    while (ymd_compare(current, Last) <= 0) {
    X                        if (chk_week(appt.repeat, current.tm_mday))
    X                            busy_today[current.tm_yday]++;
    X                        current.tm_mday += 7;
    X                        fix_current_day();
    X                        if (current.tm_mon != appt.month)
    X                            break;
    X                    }
    X                } else {
    X                    fix_current_day();
    X                    while (ymd_compare(current, Last) <= 0) {
    X                        busy_today[current.tm_yday]++;
    X                        current.tm_mday += appt.repeat;
    X                        fix_current_day();
    X                    }
    X                }
    X            } else {
    X                fix_current_day();
    X                if (appt.flags & DELETED)
    X                    busy_today[current.tm_yday]--;
    X                else
    X                    busy_today[current.tm_yday]++;
    X            }
    X        } else if ((appt.flags & REPEAT) && !(appt.flags & EVERY_SOMEDAY)) {
    X            /* find 1st appt in this year */
    X            while (ymd_compare(current, First) < 0) {
    X                current.tm_mday += appt.repeat;
    X                fix_current_day();
    X            }
    X            while (ymd_compare(current, Last) <= 0) {
    X                busy_today[current.tm_yday]++;
    X                current.tm_mday += appt.repeat;
    X                fix_current_day();
    X            }
    X        }
    X
    X    }
    X    fclose(apts);
    X    current = First;
    X    fix_current_day();
    X#ifndef NO_HOLIDAYS
    X    /*
    X     * now that we've gone thru the appointments file,
    X     * check to see if the user has selected any holiday
    X     * options and add them in.
    X     */
    X    for (i=0; i<dysize(current.tm_year + 1900); i++) {
    X        working(TRUE);
    X        if (holiday_a == 1 && a_dates(&appt, holiday_a))
    X            busy_today[i]++;
    X        if (holiday_c == 1 && c_dates(&appt, holiday_c))
    X            busy_today[i]++;
    X        working(FALSE);
    X        if (holiday_i == 1 && i_dates(&appt, holiday_i))
    X            busy_today[i]++;
    X        working(TRUE);
    X        if (holiday_j == 1 && j_dates(&appt, holiday_j))
    X            busy_today[i]++;
    X        if (holiday_s == 1 && s_dates(&appt, holiday_s))
    X            busy_today[i]++;
    X        current.tm_mday++;
    X        fix_current_day();
    X        working(FALSE);
    X    }
    X    current = First;
    X    fix_current_day();
    X#endif    /* NO_HOLIDAYS */
    X
    X    /* display year title */
    X    sprintf(title, "%d", 1900 + First.tm_year);
    X    pw_text(main_pixwin, (rect->r_width - bigfont->pf_defaultsize.x*strlen(title))/2, starty - bigfont->pf_defaultsize.y,
    X      PIX_SRC, bigfont, title);
    X
    X    /* display day names */
    X    strcpy(buf, "Su Mo Tu We Th Fr Sa    ");
    X    strcat(buf, "Su Mo Tu We Th Fr Sa    ");
    X    strcat(buf, "Su Mo Tu We Th Fr Sa");
    X    pw_text(main_pixwin, startx+4, starty-2, PIX_SRC, font, buf);
    X
    X    /* draw months */
    X    monthnr = 0;
    X    yrday = 0;
    X    extra_days = 0;
    X    startbox = First.tm_wday;
    X    for (row=0; row<4; row++) {
    X        for (col=0; col<3; col++) {
    X            x = startx + 8*ybox_width*col;
    X            y = starty + 7*ybox_height*row;
    X            mboxlims[monthnr].lowx = x;
    X            mboxlims[monthnr].lowy = y;
    X            mboxlims[monthnr].highx = x + 7*ybox_width;
    X            mboxlims[monthnr].highy = y + 6*ybox_width;
    X            /* draw month box and label */
    X            pw_write(main_pixwin, x, y, 7*ybox_width,
    X                ybox_height, PIX_SRC, ymonthbox_pr, 0, 0);
    X            pw_text(main_pixwin, x+8, y+font->pf_defaultsize.y, PIX_SRC, font,
    X                monthnames[row*3 + col]);
    X            if (!extra_days) {
    X                nrdays = monthlength(monthnr);
    X                daynr = 1;
    X            }
    X            boxnr = 0;
    X            for (j=0; j<5; j++) {
    X                y += ybox_height;
    X                /* foreach week in the month */
    X                for (k=0; k<7; k++) {
    X                    /* foreach day in the week */
    X                    /* draw day boxes */
    X                    pw_write(main_pixwin, x, y, ybox_width, ybox_height, PIX_SRC, ydaybox_pr, 0, 0);
    X                    /* label day boxes */
    X                    if (boxnr >= startbox && daynr <= nrdays) {
    X                        if (ymd_compare(today, current) == 0)
    X                            /* gray box */
    X                            pw_write(main_pixwin, x, y, ybox_width, ybox_height, PIX_SRC, ydaybox_td_pr, 0, 0);
    X                        c[0] = (daynr<10 ? ' ' : daynr/10 + '0');
    X                        c[1] = daynr%10 + '0';
    X                        c[2] = '\0';
    X                        pw_text(main_pixwin, x+4, y+14,
    X                          PIX_SRC|PIX_DST, font, c);
    X                        /* if appointment exists, reverse video box */
    X                        if (busy_today[yrday] > 0)
    X                            pw_write(main_pixwin, x+2, y+2,
    X                              ybox_width-4, ybox_height-4,
    X                              PIX_NOT(PIX_DST), NULL, 0, 0);
    X                        if (daynr == nrdays)
    X                            startbox = (k + 1) % 7;
    X                        ++daynr;
    X                        ++yrday;
    X                        current.tm_mday++;
    X                        fix_current_day();
    X                    }
    X                    x += ybox_width;
    X                    ++boxnr;
    X                    if (extra_days && daynr > nrdays) {
    X                        /* time to start new month */
    X                        extra_days = 0;
    X                        nrdays = monthlength(monthnr);
    X                        daynr = 1;
    X                    }
    X                }
    X                x -= 7*ybox_width;
    X            }
    X            if (daynr <= nrdays) {
    X                /* leftover goes in next month */
    X                extra_days++;
    X                startbox = 0;
    X            }
    X            ++monthnr;
    X        }
    X    }
    X    pw_batch_off(main_pixwin);
    X    current = Save;
    X    fix_current_day();
    X    unlock_cursors();
    X}
    X
SHAR_EOF
if test 7772 -ne "`wc -c < 'ypaint.c'`"
then
    echo shar: error transmitting "'ypaint.c'" '(should have been 7772 characters)'
fi
fi # end of overwriting check
#    End of shell archive
exit 0